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★ onze nieuwe ZOMER 1987 CATALOGUS is nu uit. Stuur ons een kaartje 

* met je naam en adres + de vermelding 'MSX GIDS’ 

♦ en we sturen hem GRATIS toe. Of kom hem afhalen in de winkel. 


★ 

★ 
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in BELG1E 

zijn al onze artikelen verkrijgbaar bij 
Het Computerwinkeltje pvba, 

M Sabbestraat 39, B-2800 MECHELEN 
telefoon (015) 206 645 


HIERONDER EEN OVERZICHT VAN ACTUELE MSX BOEKEN 


MSX BESTSELLERS ZOMER 1987 

Cursus Z8G Assembleertaal . 36 

Programmeren van de Z80 . 59,50 

Turbo Pascal Compleet . 68 

Programmeercursus MSX BASIC . 45 

Werken met Bestanden in MSX BASIC ... 45 

Handboek MSX . 79,50 

BAS1CODE-3 incl cassette MSX/MSX2 27,50 

40 Grafische Programma's MSX . 29,50 

MSX Truuks en Tips deel 8 . 25,15 

MSX-2 Zakboekje . 27,75 

Grafische Experimenten voor MSX .. 34,30 

MSX ROM/BIOS* Handboek . 55 

MSX BASIC (Sickler) . 30,75 

MSX Listingboek . 17,95 

Toepassingen voor MSX computers 

met besturingsprojekten . 29,50 

MSX Programmeren in Machinetaal .. 32,50 

MSX Machinetaalhandboek . 34,80 

MSX Machinetaalboek . 49,90 

Het Floppyboek voor MSX Computers 59,90 
Tips en Trucs voor de MSX Computer 49,90 
Games for your MSX . 49,90 


Z80, BASIC, C, Logo, Pascal 

Zakboekje Z-fc0 . 25,25 

«Machinetaal 280 - Gestruct . 39,50 
Microsoft BASIC - MSX BASIC ... 69 

De Programmeertaal C.. 25 

Logisch Logo . 35 

Cursus Pascal . 39,90 

MSX nederlands 

♦BASIC Computerspellen MSX .. 27,50 
♦Zakboekje MSX - BASIC, DOS . 21,50 
♦MSX Handboek voor Gevorderd. 64,50 
Miraculeuze Spelen voor uw MSX 29 
MSX-Computers in Basisschool 39,90 
MSX Computer Spelen Boek ... 24,95 
MSX Programmaas voor dagelijks 

gebruik . 29,75 

Het MSX instructieboek . 39,50 

MSX Programma Mix . 24,95 

Professionele Software MSX . 49,90 
Leren Omgaan met MSX Computer25,75 
MSX DOS met Disk BASTC ..... 33,50 
BASIC Programmaas voor MSX . 25,50 


* Speciale MSX boeken aanbieding * 

* MSX EXPOSED. f 5,- * 

* normale prijs f 39,- * 

MSX nederlands 

MSX-2 BASIC Handboek . 57,05 

♦MSX(2) BASIC en Machinetaal. 32,50 
MSX Computers en Printers .. 27,75 

MSX BASIC Handboek . 49,95 

MSX DOS Handboek v iedereen 26,75 

MSX Disk Handboek. 29,80 

MSX Verder Uitgediept . 24,10 

Financiële Programmaas v MSX 25,75 

Het MSX Software boek. 27,90 

Werken met de MSX Computer . 25,75 

De MSX Gebruikersgids .. 39,50 

MSX Programmaverzameiing ... 49,90 
Grafiek en Geluid voor MSX . 49,90 

MSX duits en engels 

Das MSX Buch mit MSX-2 . 69 

The MSX Games Book . 29 

Useful Utilities for MSX ... 17,50 


ACTUELE MSX SOFTWARE (t«tape/d=disk/c=cartridge) 


MSX Nuttig 


MSX-CALC cartridge ... 195 
Spreadsheet + Graphics 

MSX-TEXT cartridge ... 195 
Tekstverwerker + Database 

EasyPaint . t 35 

palet . ... t 35 

Des 2 . t 50 

Music Editor 'MUE' .. c 95 

MSX Artist . t 19 

♦PRINT X PRESS . t 95 

idem op disk . dl09 

voor Epson Printers. 
Tasword nederlands .. t 95 

Tasword MSX . t 65 

Aacko Desk ,.(3.5 n ). d 179 
database*tekstverwerker 
♦SuperKasboek disk .. d 149 
Kerken met MSX tape t 40 

MSX Utilities : 

Diskit -disk toolkit. d 69 


MSX Adventures 
De Erfenis . t 59 

Castle Blackstar .... t 32 
Journey to the Centre of 

Earth . t 15 

Jewels of Darkness .. t 65 


Salvage . t 10 

The Price of Magick . t 45 
Silicon Dreams. t 59 

Arcade Adventures 


Avenger . t 39 

'Way of the Ti eer II' 

Batman . t 36 

Cyberrun . t 39 

Deus ex Machina . t 36 

Dynamite Dan. t 36 

♦Head over Heels . t 36 

♦Knightmare . c 65 

♦Maze of Galious . c 75 

Storm. t 10 

Octagon Squad . t 10 

♦Unbelievable Ultimate t 39 

Wizard's Lair . t 36 


MSX programmeertalen 

Hisoft DevPac . 

♦Hisoft DevPac80 2.0 


t 79 - 

d!65 ♦NASHUA diskettes per 10 ♦ 


Hisoft 

Pascal ... 

.... tl25 

5" 

single 

sided ... 

...19 

Hisoft 

Pascal 80 

.... J165 

3.5” 

single 

sided ... 

...49 

Hisoft 

C++ . 

.... a165 

3.5" 

doubie 

sided . . . 

... 65 


Flash (dis-)assembler d119 


MSX Sportsimulaties 
♦Tenth Frame-bcwling . t 39 

Le Mans . t 15 

International Karate t 39 
♦Football Manager .... t 36 

♦Wintergames . t 39 

Formula 1 Simulator . t 10 

Konami Boxing. c 65 

Konami Football . c 65 

Footballer of the yeart 32 
Speedking motorrace . t 12 

MSX F1ightsimulators 
737 FlightSimulator 14,90 
♦737 FlightSimul. . d 24,90 
Choppe r I ........ t 34,90 

Dambusters . t 39 

Space Shuttle .*. t 49 

♦Ace of Aces . t 39 

Flight Deck . d 39,90 

Starfighter. t 34,90 

NorthSea Heiicopcer 14,90 

NorthSea Heli .d 24,90 

Spitfire 40 . t 39 

MSX-2 Software op disk 
The Chess Game MSX-2 59,90 

Chopper II . 69,90 

Kastan - database .... 149 
♦Vampire Killer Cart. "5 
♦FASTAN fakturering 300,50 

Tasword MSX-2 . 149 

FISTAN . 300,50 

financiële administratie 


MSX arcade games: 

♦Array Moves . 

♦Penguin Adventure ... 

Donkey Kong . 

Gauntlet .. 

♦Gauntlet Deeper Dunge 

♦Flash Gordon . 

♦Arkanoid . 

Boulderdash II ....t 

Spy vs Spy II . 

♦Game Master Konami .. 
Konami spelenkraker, 
2 slots nodig 

Five Star Games . 

Fire Hawk . 

Computer Hits 3 . 

Vestron . 

Trailblazer . 

F inders Keepers. 

♦Feud . 

♦The Living Daylights 


t 36 
c 69 
t 36 
t 39 
on 20 
t 15 
t 36 
29,90 
t 39 
c 75 


t 39 

t 10 
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39 

10 

10 

10 

10 

39 


♦Storm Bringer 
Invaders .... 
Molecule Man 
MSXtra . 


t 15 

t 10 
t 12 
t 45 


Konami Nemesis ... 
Konami The Goonies 

Desolater . 

♦Konami QBERT . 

Konami Knightmare 
6 Computer Hits .. 
Konami fiyperralley 
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winkel open van woensdag t/m zaterdag tussen 11.00 en 17.00 (niaandag/d irisdag gesloten) - alle prijzen inclusief 

verzendkosten f 6,- per bestelling - vraag onze nieuwe ZOMER 1987 CATALOGUS aan. 
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dealer aanvragen welkom 







































































































































































































































































































































































































































































































































































































































































NUMMER 13. OKTOBER / NOVEMBER 198? 



LET OP ! ! 

Dit is ons nieuwe adres: 

POSTBUS 516 
8200 AM LELYSTAD 


NUMMER 14 VERSCHIJNT ROND 2 DECEMBER 


COLOFON 


De MSX-gids is een uitgave van: 

Uitgeverij Herps, 

Postbus 516, 

8200 AM LELYSTAD 

Tel. 020-327464 (12.00 tot 16.00 uur). 

De MSX-gids verschijnt 6 keer per jaar. 

Een abonnement kost ƒ 40- per 6 nummers en is 
te verkrijgen door ƒ 40- over te maken op Post- 
banknummer 5036011 
t.n.v. José Herps te Lelystad. 

Voor België: Bfr. 750 op Bankrekeningnummer 
235-0430464-87 bij de Generale Bank te Hasselt 
t.n.v. José Herps, Postbus 516, 8200 AM Lely¬ 
stad. 


Hoofdredaktie: 

Alfred Debels 
Postbus 516 
8200 AM Lelystad 
Tel. 020-320807 

(tussen 12.00 en 16.00 uur en tussen 18.00 en 
19.30 uur). 

Advertenties: 

José Herps 

Tel. 020-327464 (12.00 tot 16.00 uur). 


Verspreider Nederland: 
BETAPRESS, Gilze 

Verspreider België: 
AMP, Brussel 


Uit deze uitgave mag alleen geheel of gedeeltelijk 
worden overgenomen en/of vermenigvuldigd, 
dan na voorafgaande schriftelijke toestemming 
van de uitgever. 

De inhoud van de MSX-gids komt voor een groot 
gedeelte tot stand door inzendingen van de le¬ 
zers. De aansprakelijkheid voor auteursrechten 
voor ingezonden stukken ligt bij deze inzenders. 

SUBSCRIPTION PRICE ABROAD: 

People living outside the BENELUX have to pay 
DG. 60,- a year for 6 issues. 

Single copies DG. 12,-. 

Payments can be made cash by registered mail, 
by Int. Postal/Money order or by Bank/Giro trans¬ 
fer. 


ISSN 0169-9792 
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HELP HELPT 


Naar aanleiding van de noodkreet -over de aansluiting van onze Sony computer op do Sony monitor kreeg 
ik een zeer uitgebreid antwoord van W.J.Bout uit Rotterdam en van Sony Service Centre in Belgie , waarvoor 
mijn oprechte dank. Uiteraard was de S-poIige Dinplug een schrijf foutje van mijzelf en had ik wel degelijk 
een 8-polige plug gebruikt. Ook waren de aansluitingen Audio, RGB en Sync goed en ligt de fout aan de 
verbinding vanaf pen 5 van de DIN-plug of aan het ontbreken van de doorverbindingen van de massa. 
Beiden ontbraken in mijn kabel Na aanpassing werkt alles nu prima en hebben wij nu ook het puntgave 
beeld van de Sony monitor bij onze Sony HB-F700P. Hieronder dan nog even het aansluitschema. 



MSN DAG 

Zie voor de gegevens over deze MSK dag in Amsterdam de advertentie op de binnenkant van het omslag 
(achterzijde). Nu eens geen commercieel gedoe met hoge standprijzen zodat er heel wat aardige 
aanbiedingen te halen zijn en de toegang nog gratis is ook. Uiteraard vind je de Gids hier ook met de 
bladen, cassettes, diskettes en wat software, en ditmaal -vanwege het ontbreken van de standkosten- met 
gereduceerde beursprijzen. 

ADRESWIJZIGING 

Nu dan een complete verhuizing. Bij het ter perse gaan van dit nummer waren de telefoonnummers nog niet 
definitief bekend, maar op de oude (Amsterdamse) nummers wordt -door de PTT- enkele maanden lang een 
bandje met de nieuwe nummers afgedraaid. Gebruik wel meteen de nieuwe postbus. Op onze oude postbus 
(10252) is ook nog heel lang post binnengekomen, maar dat was niet zo'n ramp, daar deze ook in Amsterdam 
was. Nu wordt dat anders. De post, die nu nog naar Amsterdam wordt gestuurd blijft zeer lang 
onbeantwoord, daar we niet van plan zijn dagelijks naar Amsterdam te gaan. Wel blijft deze postbus 
(26006) tot het eind van het jaar in ons bezit. 

GEEN CURSUS BASIC 

Dat was even schrikken: geen inzending voor de cursus BASIC. Jammer, we hopen dat dit de enige keer is 
dat zoiets gebeurt. 

WEER HELP ! ! 

Ditmaal zoeken wij hulp van fanaten die -net als wij - met The Maze Of Galious bezig zijn. Wij missen nog 5 
items en we komen met geen mogelijkheid door wereld 8. Wie weet hoe dit moet ? Hier volgen de items die 
we nog missen: Cross, Oar, Carpet, Sabre of Dagger en de Uase. Waar liggen die ? 

DE HERFST 

Met de herfst zijn we weer door de computer rustpauze heen. Nu komen de leveranciers los met hun 
producten en zo kunnen we de komende maanden weer allerlei nieuwigheden verwachten, Ook met de 
software zal het dan wat beter gaan; in ieder geval weer genoeg om over te schrijven. 

Tot de volgende keer. 

Alfred. 
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POSTER DESIGNER 


Het programma bestaat uit twee delen: een BASIC ge¬ 
deelte en een machinetaalblok, dat de machinecode en 
de spritepatronen bevat. Het machinetaalblok wordt 
gemaakt d.m.v. het tweede BASIC gedeelte, waarin de 
DAT A’s zijn opgenomen. Deze DAT A's worden door dit 
programma in het geheugen gezet, waarna een be¬ 
paald geheugengebied met BSAVE weggeschreven kan 
worden. Bij cassette gebruik moet het machinetaal¬ 
blok achter het BASIC deel staan, het wordt namelijk 
vanuit het programma ingeladen. 

Het programma kan zowel met diskdrive als datare- 
corder werken. Bij het RUNen van het programma 
wordt gekeken of er een diskdrive aangesloten is; op 
adres FFA7h staat C9h als dit niet het geval is. 

De printroutine zal op alle matrixprinters goed func¬ 
tioneren, mits de juiste ESC-codes in de strings EIS 
tot en met E5S zijn ingevoerd. Deze strings staan in 
regel 510 tot en met 220. Zoals ze in het programma 
zijn opgenomen zijn ze geschikt voor de Philips 
VI40030 (NMS1431) en waarschijnlijk ook voor de Sei- 
kosha SP1000MH. 

EIS - 384 tekens in grafische mode. 

E2S - regelopvoer i/8 inch. 

E3S - 576 tekens in grafische mode. Minimaal 72 dots 
per inch, anders past de tekening niet op papier • 

E4S - regelopvoer 1/12 inch. 

E5S - reset printer. 

Het kan gebeuren dat de afdruk verkeerd op papier 
verschijnt doordat de banen ondersteboven worden 
geprint. In dat geval moet het REM-statement in re¬ 
gel 450 verwijderd worden. 

Veel succes ! 


Beeldscherm* WIDTH 36 


30 REM POSTER designer 
40 REM Door: Martin van der Graaff 
50 REM (c)1987 MSX-Gids Amsterdam 
80 REM 

90 REM initialisatie 

100 KEYOFF:CLS:C0LÜR4,1,1 

110 CLEAR50,&HA7FE:DEFINTA-Z 

120 FORI=lTÓ10:KEYI,"":NEXT 

130 BASE(10)=6144:BASE(11)=8192 

140 BASE(12)=0:BASE(13)=6912 

150 BASE(14)=14336:VDP<1)=226 

160 SCREEN2,,0,2:OPEN"BRP:"AS1 

170 X = 144:Y=96:D=1:S=0:T=0:VK=5:AK=1 

:MAK=1:XI=0:YI=0:XK=0lYK=0:XM=X:YM=Y 

:X1=0:X2=0 

180 IFPEEK (?<HFFA7) =?<HC9THENDV$="CAS: 
"ELSEDV*="A:" 'diskdrive? 

190 POKE&HFBB1, 1: POKE8<HF418, 1 
200 ONERRORGOTÓ3690 
210 REM 

220 REM titelscherm 
230 PRESET(67,80):PRINT#1,"POSTER" 
240 PRESET(68,80):PRINT#1,"POSTER" 
250 COLOR7 

260 PRESET(123,80):PRINT#1,"designer 

I» 

270 PRESET(124,80):PRINT#1,"designer 

H 

280 C0L0R13 
290 PRESET(56,96) 



300 PRINT#1 , " 1987 by M vd Graaff" 

310 PRESET(57,96) 

320 PRINTtl,"1987 by M vd Graaff" 

330 FORI=0TÖ7:READG 

340 VP0KE3112+I,G:VPOKE11304+I,49 

350 NEXT 

360 DATA60,66,153,161,161,153,66,60 
370 REM 

380 REM machinetaal laden 
390 BLOAD DV$+"POSBIN",R 
400 DEFUSR0=&HDB00: DEFÜSR1 =8<HDB2F 
410 DEFUSR2=?<HD80A: DEFUSR3=&HD823 
420 DEFUSR4=&HD83C: DEFL)SR5=8<HD89E 
430 DEFUSR6=S<HD8AE: DEFUSR7=?<HD8E5 
440 DEFUSR8=?<HD9B6: DEFUSR9=8<HDA8C 
450 REM POKE8<HD991 ,8<HA: P0KES<HD993, ?<H 
Al FORI-&HD998T08tHD99B 1POKEX, 0: NEXT: P 
OKE8<HDA63, 8<HA: P0KE&HDA65,8<HA: POKE&HD 
A67,8<HA: PÖKE&HDA70, 0: P0KÈ&HDA71,0 
460 REM 

470 REM printercode’s 
480 REM PHILIPS VW0030 8< 

490 REM SEIKOSHA SP1000MX 
500 REM • 

510 REM 384 tekens grafisch 
520 E1*=CHR$(27)+"G0720384" 

530 REM regelopvoer 1/8 inch 
540 E2*=CHR$(27)+"B" 

550 REM 576 tekens grafisch 
560 E3*=CHR$(27)+"G0720576" 

570 REM regelopvoer 1/12 inch 
580 E4$=CHR$(27)+"T12” 

590 REM reset printer 
600 E54=CHR$ (27) + " 3) ” 

610 REM 

620 E1*=CHR$(13)+E1* 

630 FORI=1TOLEN(El*) 

640 POKE&HDCFF+I,ASC(MID*(E1S,1,1)) 
650 NEXT: POKE8<HD93E, LEN (Elf) 

660 E3*=CHR$(13)+E3$ 

670 FORI=lTOLEN(E3*) 

680 POKE&HDD 1F+1 , ASC (MID* (E3* ,1,1)) 
690 NEXT: POKE8<HDA0E, LEN (E3$) 

700 REM 

710 REM tekenen 
720 SCREEN2:COLOR15 
730 GOSUB3730:U=USR2(0) 

740 GOSÜB1030:GOSUB1140 

750 VPOKE6915,13:VP0KE6919,13 

760 ONKEYGOSUB1250,1300,1350,1430,,, 

, , ,1520:KEY(1)ON:KÊY(2)ÓN:KEY(3)ON:K 

ÈY(4)ON:KEY(10)ON 

770 ONINTERVAL=20GOSUB1580 
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780 INTERVALON 

790 PUTSPRITE0, (X-4,Y-5),,15+D 
800 PL1TSPRITE0, (X-4, Y-5) , , 15+D 
810 PUTSPRITE1,(XM-4,YM-5),,15+D 
820 U=USR1(0) 

830 REM 

840 REM hoo-fdlus 

850 IFUSR< 6)=253THENG0SUB1030:G0T085 
0 

860 IFUSR < 6)=254THENG0SUB1140:G0T085 
0 

870 I$=I|sJKEY$ 

880 IF1*=CHR$(24)ANDX < 256-DANDY<192- 
DTHEND=D+1:XM=X:YM=Y:IFD >4THEND=1:GO 
TO790ELSE790 

890 IFI*=CHR$(13)THENGOSUB1610 

900 LY=Y:S=STICK(0) :T=STRIG(0) :IF(SO 

RT)“0THEN850 

910 IFS=BORS=10RS=2THENIFY >D-1THENY= 
Y-DELSEB50ELSEIFS >3ANDS< 7THENIFY<193 
-2*DTHENY=Y+DELSEB50 

920 IFS>1ANDS<5THENIFX<257-2*DTHENX= 
X+DELSEY=LY:GOTO850ELSEIFS >5THENIF X > 
31+DTHENX=X-DELSEY=LY!GOTOB50 
930 PUTSPRITE0, (X-4,Y-5):IFTTHENIFD= 
1THENP5ET <X,Y):GOTO900ELSEONS+1GOSUB 
980,980,940,980,950,980,960,980,970: 
GOTÖ900ÉLSE900 

940 FORI=~D+1TO0:LINE(X+I,Y-I)-(X+D+ 

1-1, Y+D-I-l) , , BF: NEXT: RETÜRN 

950 FORI=-D+lTO0:LINE(X+I,Y+I)-(X+D+ 

I—1,Y+D+I—1),,BF:NEXT:RETÜRN 

960 FORI=-D+1t00:LINE(X-I,Y+I)-(X+D- 

I—1,Y+D+I-l),,BF:NEXT:RETÜRN 

970 FORI=-D+1TO0:LINE(X-1,Y-1)-(X +D- 

I—1,Y+D—I—1),,BF:NEXT:RETÜRN 

980 LINE(X,Y)-(X+D-1,Y+D-1), , BF 

990 FORÏ=lYOD*20:NEXY 

1000 RETURN 

1010 REM 

1020 REM k1eur kiez en 
1030 S=STICK< 0) 

1040 IFS=10RS=20RS=8THENIFYK >0THENYK 
=YK-1 

1050 IFS=20RS=30RS=4THENIFXK<2THENXK 
=XK+1 

1060 IFS=40RS=50RS=6THENIFYK< 4THENYK 
=YK+1 

1070 IFS=6ORS=7ORS=BTHENIFXK>0THENXK 
=XK—1 

1080 PUTSPRITE2,(XK*10,YK*9-5),15,23 
1090 VK=POINT<XK*10+1,YK*9+3) 

1100 COLORVK:U=USR1(0) 

1110 RETURN 
1120 REM 

1130 REM ikoon kiezen 
1140 LXI=XI:LYI=YI 
1150 S=STICK(0) 

1160 IFS=10RS=20RS=BTHENIFYI >0THENY I 
=Y I — 1 

1170 IFS=20RS=30RS=4THENIFXI<1THENXI 
=X 1 + 1 

1180 IFS=40RS=50RS=6THENIFYI<8THENYI 
=Y I +1 

1190 IFS=60RS=70RS=8THENIFXI >0THENX I 
= X I — 1 

1200 IFLXI< >XIORLYI<>YITHENLI NE(LX I * 
16+1,LYI * 16+49)-(LX I * 16+15,LYI * 16+63 
),15,BF 

1210 LINE(XI*16+1,YI*16+49)-(XI*16+1 
5,YI * 16+63) 5 1,BF 
1220 RETURN 
1230 REM 

1240 REM key l;zet hulpkruis 
1250 XM=X:YM=Y 

1260 PUTSPRITE1,(X-4,Y-5),,15+D 
1270 RETURN 
1280 REM 


1290 REM key 2 \verwissel kruisen 

1300 SWAPX,XM 

1310 SWAF'Y, YM 

1320 RETURN790 

1330 REM 

1340 REM key 3?verander cursorkleur. 
1350 VP=VPEEK(6915) 

1360 VP=VP+1:IFVP >15THENVP=1 

1370 IFVP=AKTHEN1360 

1380 VP0KE6915,VP:VP0KE6919,VP 

1390 FORI=1TO300:NEXT 

1400 RETURN 

1410 REM 

1420 REM key 4;versnellen 
1430 S=STICK(0) 

1440 IFS=10RS=20RS=8THENIFY >11THENY= 
Y-12 

1450 IFS=20RS=30RS=4THENIFX<245-DTHE 
NX=X+12 

1460 IFS=40RS=50RS=6THENIFY<181-DTHE 
NY=Y+12 

1470 IFS=60RS=70RS=8THENIFX >43THENX = 
X-12 

1480 IFVPEEK(6914)=80THENPUTSPR ITE0, 
(X, Y)ELSEPUTSPRITE0, (X-4,Y-5) 

1490 RETURN 
1500 REM 

1510 REM key 10;stoppen 
1520 SCREEN0: C0L0R15, 1,1: DEFUSR=8<H3E 
1530 POKE&HFBB 1,0: POKE8<HF418,0 
1540 CLOSE:U=USR <0)!ONERRORGÖTO0 
1550 END 
1560 REM 

1570 REM interval routine 
1580 VP0KE6919, VF’EEK < 6919) X0RVPEEK(6 
915):RETURN 
1590 REM 

1600 REM ikoonroutines 
1610 INTERVALOFF:KEY(1)OFF:KEY(2)STO 
P: KEY(3)OFF: KEY(4)OFF:VPOKE(YI *2+ XI + 
3)*4+6915,11 

1620 0NYI*2+XI+1G0SUB1760,1690,1830, 
1830,1940,1940,2040,2140,2210,2350,2 
650,2700,2610,2750,2810,2860,2910,33 
10 

1630 IFPOINT(X,Y)=VPEEK(6915)THENGOS 
UB1350 

1640 IFYI=8THENLINE(X1*16+1,YI*16+49 
)—(XI*16+15,YI*16+63),15,BF:U=USR2(0 
) 

1650 LINE(XI*16+1,YI*16+49)-(XI*16+1 
5, YI*16+63),1,BF:KEY(1)ON:KEY(2)ONsK 
EY(3)ON:KEY(4)ON:VPOKE(YI*2+XI+3)*4+ 
6915,5 

1660 INTERVALON:RETURN790 
1670 REM 

1680 REM cirkel met a-fplatting 0.5 
1690 STR=SQR((X-XM) A 2+(2*(Y-YM))^2)+ 
D/2 

1700 IFXM—STR<320R(X=XMANDY=YM)THENB 

EEP:RETURN 

1710 FORI=0TOD-1 

1720 CIRCLE(XM+D/2,YM+D/2),STR-I,,,, 

*1730 NEXT: RETURN 
1740 REM 

1750 REM cirkel met a-fplatting 2 
1760 STR=SQR( (2* (X-XM) ) '' 2 + (Y-YM) ' s 2) + 
D/2 

1770 IFXM-(STR/2)<320R(X=XMANDY=YM)T 
HENBEEP:RETURN 
1780 FORI=0TOD-1 

1790 CIRCLE(XM+D/2,YM+D/2),STR-I,,,, 
2 

1800 NEXT:RETURN 
1810 REM 

1820 REM cirkel met a-fplatting 1 
1830 STR=SQR ( (X-XM) ' s 2+ (Y-YM) ''2) +D/2 
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1840 IFXM-STR<320R(X=XMANDY=YM)THENB 

EER:RETURN 

1850 IFXITHEN1890 

1860 FORI=0TOD-1 

1870 CIRCLE < XM+D/2, YM+D/2) ,STR-I 
1880 NEXTïRETURN 
1890 CIRCLE<XM+D/2,YM+D/2) , STR 
1900 PAINT(XM,YM) 

1910 RETURN 
1920 REM 

1930 REM vierkant 

1940 IFX<XMTHENX1=X:X2=XM+D-1ELSEX 1 = 
XM:X2=X+D-1 

1950 IFY<YMTHENY1=Y: Y2=YM+D-1ELSEY1 = 

YMïY2=Y+D-1 

1960 IFXITHEN2000 

1970 FORI=0TOD-1 

1980 LINE <X1 + I,Y1 + I) — (X2—I,Y2—I),,8 

1990 NEXT:RETURN 

2000 LINE(X1,Y1)-(X2,Y2),,BF 

2010 RETURN 

2020 REM 

2030 REM tekenen lijn 

2040 LINE(X,Y)-(X+D-l,Y+D-l),,BF 

2050 LINE(XM,YM)-(XM+D-1,YM+D—1),,BF 

2060 IFX<XMTHENX1=X:X2=XM:Y1=Y:Y2=YM 

ELSEX2=X:X1=XM:Y2=Y:Y1=YM 

2070 FORI=0TOD-1 

2080 LINE <X1 + I,Y1+D-1)-(X2+1,Y2+D—1) 
2090 LINE(XI+D—I-1,Y1) — (X2+D—I — 1,Y2) 
2100 NEXT 

2110 IFD>2THENF0RI = 1T02: F0R<3 = 1 T02: LI 

NE(X + I,Y+I)-(XM+J,YM+J):LINE < X+J,Y+I 

)—(XM+j,YM+I):NEXTJ,I 

2120 RETURN 

2130 REM 

2140 REM paint 

2150 GOSUB2170:PAINT<X,Y>,VK 
2160 RETURN 

2170 LINE<31,0)-<31,191) ,VK 
2180 RETURN 
2190 REM 

2200 REM spuitbus 

2210 KEY <3)DN:KEY <4)ON 

2220 PUTSPRITE0, < X,Y),,20 

2230 IFUSR < 6)=253THENGÓSUB1030:G0T02 

230 

2240 S=STICK<0) 

2250 IFS=BORS=10RS=2THENIFY >0THENY=Y 
-1 

2260 IFS=20RS=30RS=4THENIFX< 255THENX 
-X + l 

2270 IFS=40RS=50RS=6THENIFY<191THENY 
=Y+1 

2280 IFS=60RS=70RS=8THENIFX >32THENX = 
X-1 

2290 IFSTRIG < 0)THENFORI = 1TD3:PSET(X + 
RND<1)*4,Y+RND<1)*4):NE X T 
2300 I^=ÏNKEY$ 

2310 IFI$=CHR$ < 27)THENRETURN 
2320 GOTO2220 
2330 REM 

2340 REM tekst plaatsen 

2350 X=<X\8)#8:KEY <3)ON 

2360 PUTSPR ITE0, <X,Y-2),,24 

2370 IFUSR(6)=253THENG0SÜB1030:G0T02 

370 

2380 I $= I NKEY$: IFI $= THEN2370 

2390 IFI$=CHR$ < 8)THENLINE < X,Y)-< X+7, 

Y+7),,BF:IFX >32THENX = X—8 

2400 IFI$=CHR* <127)THENLINE < X,Y)-< 25 

5, Y+7),,BF:GOTO2370 

2410 IFI$=CHR$ <11)THENX=32:Y=0 

2420 IFI$=CHR$<27)THENRETURN 

2430 IFI$=CHR$ <28)THENIFX<24BTHENX=X 

+8ELSEIFY<184THENY=Y+8:X=32 

2440 IFI*=CHR$ <29)THENIFX >32THENX=X- 

8ELSEIFY >0THENY=Y-8:X=248 


2450 IFI*=CHR* < 30)THENIFY >0THENY=Y- 1 
2460 IFI$=CHR$ <31)THENIFY<184THENY=Y 
+1 

2470 IFI*=CHR*(13)THENX=32:IFY<176TH 

ENY=Y+8 

2480 I=ASC<I$> 

2490 IFI>1THENIFI<32THEN2580ELSE2550 
2500 I$=INPUT$ <1):I=ASC(I$) 

2510 IFI<640RI>95THEN2550 
2520 PSET<X,Y),POINT(X,Y) 

2530 PRINT#i,CHR*<l)+CHR*<I) 

2540 GOTO2570 

2550 PSET <X,Y),POINT < X,Y):PRINT#1,1$ 
2560 IFI>32ANDÏ<192THENPSET < X + l,Y),P 
OINT < X + l,Y):PRINT#1,1$ 

2570 X = X+8:IFX >248THENX=32:IFYC176TH 

ENY=Y+8 

2580 GOTO2360 

2590 REM 

2600 REM cis 

2610 LINE <32,0)-<255,191),AK,BF 
2620 RETURN 
2630 REM 

2640 REM scroll up 
2650 U=USR5 < 0) 

2660 LINE<32,184)-<255,191),AK,BF 
2670 RETURN 
2680 REM 

2690 REM scrol1 down 
2700 U=USR6(0) 

2710 LINE<32,0)-<255,7),AK,BF 
2720 RETURN 
2730 REM 

2740 REM achtergrondkleur veranderen 
2750 IFAK=VKTHENBEEP:RETURN 
2760 AK-VK:U=USR4< AK) 

2770 COLOR,AK,AK 
2780 RETURN 
2790 REM 

2800 REM in geheugen 

2810 LINE < XI * 16+1,YI * 16+49)-(XI * 16+1 

5,YI*16+63),15,BF 

2820 U=USR2 < 0):MAK=AK 

2830 RETURN 

2840 REM 

2850 REM uit geheuqen 

2860 LINE < XI * 16+1,YI * 16+49)-< XI * 16+1 
5, YI # 16+63) , 15, E<F 

2870 U=USR3 < 0):AK=MAK:COLOR,AK,AK 
2880 RETURN 
2890 REM 

2900 REM saven & 1aden 
2910 VP0KE6912,209:VP0KE6916,209 
2920 U=USR2 < 0):MAK=AK 
2930 LINE<72,56)-<215,135),7,BF 
2940 LINE <72,56)-(215,135),5,B 
2950 LINE<73,57)-<214,134),5,B 
2960 COLOR1:PSET(80,64),15 
2970 F'R I NT# 1, "FILENAAM: " 

2980 PSET<81,64),15 
2990 PRINT#1,"FILENAAM:" 

3000 REM 

3010 REM ingave -filenaam 
3020 XP=0: FI$="":COLOR15 
3030 PUTSPRITE24,<152+XP*8,63),4,26 
3040 I$=INPUT$<1) 

3050 IFI$=CHR$(13)THEN3120 

3060 IFI$=CHR$ < 27)THEN3270 

3070 IFI$=CHR$ <8)ANDXP>0THENXP=XP-1: 

LINE <152+XP*B,64)-<159+XP#8,71),7, BF 

:FI$=LEFT$(FIi,LEN(FI %) -1):GOTO3030 

3080 IFI$<CHR$(32)ORXP=6THEN3040 

3090 FI$»FI$+I$ 

3100 FORI=0TO1:PSET <152+XP#B+1,64),P 

0INT<152+XP*8+I,64>:PRINT#1,IS:NEXT 

3110 XP=XP+1:GOt03030 

3120 VPOKE7011,0:C0L0R8 

3130 PSET<112,88),7:PRINT#1,"LADEN" 
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3140 PSET(113,88):PRINT#1,"LADEN" 
3150 PSET(112,104),7:PRINf#l,"SAVEN" 
3160 PSET(113,104):PRINT#1,"SAVEN" 
3170 YP=0 

3180 PUTSPRITE24,(100,87+YP#16),4,27 
3190 I*=INKEY* 

3200 IFI*=CHR*(27)THENVPOKE7011,0:LI 

NE(74,58)—<213,133),7,BF:GOTO2960 

3210 ï FI $=CHR*'(30) THENYP=0 

3220 IFI$=CHR$(31)THENYP=1 

3230 IFI*=CHF<*(32)THEN3250 

3240 GOTO31B0 

3250 IFYP=0THENBLOADDV*+FI % :AK=PEEK< 

?<HA7FF) : COLOR, AK, AK: MAK=AK 

3260 IFYP=1THÈNPÓKE&HA7FF,AK : BSAVEDV 

S+FI $, &HA7FF, 8<HD7FF 

3270 VPOKE7011,0!U=USR3(0) 

3280 COLORVK:RETURN 
3290 REM 

3300 REM uitprinten 
3310 VP0KE6912,209:VP0KE6916,209 
3320 U=USR2(0)!MAK=AK:COLOR1 
3330 LINE <72,56) — <215,135),7,BF 
3340 LINE(72,56)-<215,135),5,B 
3350 LINE(73,57) — <214,134),5,B 
3360 PSET(96,77),7 
3370 F’RINT# 1 , "FORMAAT 
3380 PSET(97,77),7 
3390 PRINT#1,"FORMAAT 
3400 PSET(96,93),7 
3410 PR I NT# 1, FORMAAT 
3420 PSET(97,93),7 
3430 PRINT#1,"FORMAAT 
3440 PSET(96,109),7 
3450 PRINT#1,"FORMAAT 
3460 PSET <97,109),7 
3470 PRINT#1,"FORMAAT 
3480 YP=0 
3490 PUTSPRITE24,(84,76+YP*16),4,27 
3500 I*=INKEY$ 

3510 IFI$=CHR$(27)THEN3650 

3520 IFI*=CHR$(30)ANDYP >0THENYP= YP-1 

3530 IFI*=CHR*(31)ANDYP<2THENYP=YP+1 

3540 IFI*=CHR$(32)THENIFUSR1(1)=255T 

HEN3560ELSEBEEP 

3550 GOTO3490 

3560 IFUSR (6) =254THENPOKE8<HFFCB, 2ELS 
EPOKE&HFFCB, 1 

3570 IF YP=0THENLPR INTE2$: U=USR7 (0) *. G 
OTO3640 

3580 IFYP=1THENL.PRINTE4$:U=USR8(0) :G 
OTO3640 

3590 LPRINTE4$ 

3600 U=USR9 (?<HA8F8) : LPRI NTCHR$ (12);: 

IFINKEY$=CHR$(27)THEN3640 

3610 U=USR9(&HA888)!LPRINTCHRS(12) ; : 

IF INKEY$=CHR$(27)THEN3640 

3620 U=USR9(&HB4FB):LPRINTCHR*(12) ; : 

IFINKEY*=CHR$(27)THEN3640 

3630 U=ÜSR9 (S<HB488) : LPR I NTCHR$ (12); 

3640 LPRINTE5$:U=USR1(0);GOTO3490 

3650 VPOKE7011,01U=USR3(0) 

3660 COLORVK:RETURN 
3670 REM 

3680 REM error routine 
3690 IF < ERR=60ORERR=190RERR=660RERR= 
69ORERR=70ORERR=6BORERR=53)THENIFX1= 
0ANDERL< >390THENBEEP:VPOKE7011,0: LIN 
E(74,58)-(213,133),7,BF:RESUME2960EL 
SE IFÈRR=19ANDXI = 1THENBEEP:RESUME3490 
3700 GOTO1520 
3710 REM 

3720 REM ikoonmenu 

3730 LINE(0,48)-(31,191),15,BF 

3740 LINE(0,0)-(31,47) ,5,B 

3750 LINE(0,1)—(31,47),5,B 

3760 FORI=1T05:J=1*9-7 

3770 LINE(1,J)-<10,J+8),I,BF 


16x14" 
16x14" 
24x21" 
24x21" 
47x41" 
47x41" 


3780 NEXT 

3790 FORI=6TO10:J=1*9-52 
3800 LI NE (1 1, J ) - (20, J +8) , I, BF 
3810 NEXT 

3820 FGRI=11T015:J=I*9-97 
3830 LINE (21 ,J) -(30, J +8) ,I,BF 
3840 NEXT 

3850 PLITSPR ITE0, ( 140,91 ) , 13, 16 
3860 PUTSPRITEl,(140,91),13,16 
3870 PUTSPRITE2,(0,209),0,0 
3880 PUTSPRITE3,(0,47),5,21 
3890 PUTSPRITE4,(16,47),5,22 
3900 PUTSPRITE5,(0,63),5,0 
3910 PUTSPRITE6, <16,63),5,1 
3920 PUTSPRITE7,(0,79),5,2 
3930 F'UTSPR ITEB, (16,79) , 5,3 
3940 F'UTSPRITE9, (0,95) ,5,4 
3950 PUTSPRITE10,<16,95),5,5 
3960 PUTSPRITEl1,(0,111),5,6 
3970 PUTSPRITEl2,(16,111),5,7 
3980 PUTSPRI TE13, ( 0 ,127),5,8 
3990 PUTSPRITE14,(16,127),5,9 
4000 PUTSPRITEl5,(0,143),5,10 
4010 PUTSPRITE 16, <16,143),5,11 
4020 PUTSPRI TE17, ( 0 ,159),5,12 
4030 PUTSPRITEl8,(16,159),5,13 
4040 PUTSPRITEl9,(0,175),5,14 
4050 PUTSPRITE20,(16,175),5,15 
4060 PUTSPRITE21,(31,255),5,25 
4070 PUTSPRITE22,(31,15),5,25 
4080 PUTSPRITE23,(31,31),5,25 
4090 RETURN 
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233 

1930 

- 

0 

Regel 

2820 

- 

36 

1940 

- 

239 

Regel 

2830 

- 

142 

1950 

- 

249 

Regel 

2840 

- 

0 

1960 

- 

235 

Regel 

2850 

- 

0 

1970 

- 

236 

Regel 

2860 

- 

233 

1980 

- 

71 

Regel 

2870 

- 

140 

1990 

- 

75 

Regel 

2880 

- 

142 

2000 

- 

163 

Regel 

2890 

- 

0 

2010 

- 

142 

Regel 

2900 

- 

0 

2020 

- 

0 

Regel 

2910 

- 

80 

2030 

- 

0 

Regel 

2920 

- 

36 

2040 

- 

79 

Regel 

2930 

- 

173 

2050 

- 

131 

Regel 

2940 

- 

101 

2060 

- 

73 

Regel 

2950 

- 

101 

2070 

- 

236 

Regel 

2960 

- 

64 

2080 

- 

169 

Regel 

2970 

- 

173 

2090 

- 

171 

Regel 

2980 

- 

56 

2100 

- 

131 

Regel 

2990 

— 

173 

2110 

- 

71 

Regel 

3000 

- 

0 

2120 

- 

142 

Regel 

3010 

— 

0 

2130 

- 

0 

Regel 

3020 

- 

221 

2140 

- 

0 

Regel 

3030 

- 

122 

2150 

- 

17 

Regel 

3040 

- 

104 

2160 

- 

142 

Regel 

3050 

- 

13 

2170 

- 

163 

Regel 

3060 

- 

177 

2180 

- 

142 

Regel 

3070 

- 

136 

2190 

- 

0 

Regel 

3080 

“ 

117 

2200 

- 

0 

Regel 

3090 

- 

179 

2210 

- 

199 

Regel 

3100 

- 

197 

2220 

- 

96 

Regel 

3110 

mm 

244 

2230 

- 

217 

Regel 

3120 

- 

173 

2240 

- 

69 

Regel 

3130 

- 

61 

2250 

- 

185 

Regel 

3140 

- 

250 

2260 

- 

178 

Regel 

3150 

- 

102 

2270 

- 

123 

Regel 

3160 

- 

35 

2280 

- 

222 

Regel 

3170 

- 

169 

2290 

- 

207 

Regel 

3180 

- 

102 

2300 

- 

72 

Regel 

3190 

- 

72 

2310 

- 

95 

Regel 

3200 

- 

193 

2320 

- 

75 

Regel 

3210 

- 

125 

2330 

- 

0 

Regel 

3220 

- 

127 

2340 

- 

0 

Regel 

3230 

- 

162 

2350 

- 

17 

Regel 

3240 

- 

15 

2360 

- 

105 

Regel 

3250 

- 

130 

2370 

- 

102 

Regel 

3260 

- 

105 

2380 

- 

224 

Regel 

3270 

- 

110 

2390 

- 

109 

Regel 

3280 

- 

38 

2400 

- 

237 

Regel 

3290 

- 

0 

2410 

- 

202 

Regel 

3300 

- 

0 

2420 

- 

95 

Regel 

3310 

- 

80 

2430 

- 

218 

Regel 

3320 

- 

45 

2440 

- 

35 

Regel 

3330 

- 

173 

2450 

- 

54 

Regel 

3340 

- 

10! 

2460 

- 

238 

Regel 

3350 

- 

101 


Regel: 3360 - 76 
Regel: 3370 - 164 
Regel: 3380 - 79 
Regel: 3390 - 164 
Regel: 3400 - 94 
Regel: 3410 - 161 
Regel: 3420 - 95 
Regel: 3430 - 161 
Regel: 3440 - 110 
Regel: 3450 - 168 
Regel: 3460 - 111 
Regel: 3470 - 168 
Regel: 3480 - 169 
Regel: 3490 - 75 
Regel: 3500 - 72 
Regel: 3510 - 47 
Regel: 3520 - 183 
Regel: 3530 - 187 
Regel: 3540 - 40 
Regel: 3550 - 70 
Regel: 3560 - 218 
Regel: 3570 - 50 
Regel: 3580 - 54 
Regel: 3590 - 58 
Regel: 3600 - 41 
Regel: 3610 - 185 
Regel: 3620 - 53 
Regel: 3630 - 231 
Regel: 3640 - 138 
Regel: 3650 - 110 
Regel: 3660 - 38 
Regel: 3670 - 0 

Regels 3680 - 0 

Regel: 3690 - 182 
Regel: 3700 - 140 
Regel: 3710- 0 

Regel: 3720 - 0 

Regel: 3730 - 229 
Regel: 3740 - 217 
Regel: 3750 - 218 
Regel: 3760 - 142 
Regel: 3770 - 141 
Regel: 3780 - 131 
Regel: 3790 - 193 
Regel: 3800 - 159 
Regel: 3B10 - 131 
Regel: 3820 - 246 
Regel: 3830 - 179 
Regel: 3840 - 131 
Regel: 3850 - 204 
Regel; 3860 - 205 
Regel: 3870 - 161 
Regel: 3880 - 24 
Regel: 3890 - 40 
Regel: 3900 - 23 
Regel: 3910 - 39 
Regel: 3920 - 43 
Regel: 3930 - 59 
Regel: 3940 - 63 
Regel: 3950 - 77 
Regel: 3960 - BI 
Regel: 3970 - 97 
Regel: 3980 - 101 
Regel: 3990 - 117 
Regel: 4000 - 56 
Regel: 4010 - 71 
Regel: 4020 - 139 
Regel: 4030 - 155 
Regel: 4040 - 159 
Regel: 4050 - 175 
Regels 4060 - 25 
Regel: 4070 - 42 
Regel: 4080 - 59 
Regel; 4090 - 142 
Totaal: 42548 





EEK 

DE 

GO 


Hl 


0 


BEPCflLD I KOOIT KAN GEKOZEN OORDEN MET DE CURSORTOETSE N 
PLS HEN DE SNIFT-TOETS INGEORUKT HOUDT. 

HANDELING UORDT UITGEVOERD DOOR OP RETURN TE CRUKKEN. 

TEKEN DUAAL DOOR TEKENKRUIS HET HULPKRUIS ALS 
III DOELPUNT . 

IDE!!, HAAR NU DO GRADEN GEDRAAID. 

TEKEN CIRKEL DOOR TEKENKRUIS HET HULPKRUIS ALS 
MIDDELPUNT. 

IDEM, HAAR HU IN6EKLEURO. 

TEKEN yiEpKANT HET TEKENKRUIS EN HULPKRUIS 
ALS HOEKPUNTEN. 

ICEM, HAAR NU lil GEKLEURD. 

TREK LIJN TUSSEN TEKENKRUIS EN HULPKRUIS. 

INKLEUPEH VLAK HET UOORGRONOKLEUR. 


m 

B 

m 

m 


ÏÉfêSc fifc8S T 8I r, lTEKEIinODE NET ESC. 

SCROLL NAAR BOVEN. 

SCROLL NAAR BENEDEN. 

SCHERM LEEG. 

UERAIIDER ACHTERCRONDKLEUR IN UCÜRGRONUKLEUR. 



O 

O 

* 

o] 

B 

> 

/ 

-ï 

AIC 

cir 

t 

1 

D 

s 

C8 


m 

a 


TEKENING IN GEHEUGEN Z-, 

tfï 

TEKENING UIT CEHEU6CN HALEN. 


DE 1 TEKENING ZO NU EH DAN IN 


mm f,U fi 8i W TMèB|-HET ESC. 
PRINTEN. DIT KAN OP DRIE FORMATEN: 


& 

47 




41 


TERUG IIPAP DE TEKENI10DE HET ESC . 



HET DIT PROGRAHI1A KAH HEN ZELF EEN TEKENING HAKEN EN DIE 
UERVOLGENS OP VERSCHILLENDE FORHATEH UITPRINTEN. HET KAN 
ZOUEL HET DISK ALS CASSETTE UERKEil EN VEREIST EEN HINIHALE 

GEHEUGENCAPACITEIT VAN 32 KB. 

NA HET 'RUNNEtl' UAH HET PRCGRAI1I1A VERSCHIJNT HET 
TITELSCHERM EN UORDT EEN HACHINETAALGEDEELTE GELADEN. 
DIRECT DAARNA VERSCHIJNT HET TEKENSCHERM. 


HET TEKENSCHERM 

DIT IS HET SCHERM UAAROP DE TEKENING GEMAAKT KAM UOROEN. 
LINKSBOVEN STAAT HET KLEURENPALET EN DAARONDER EEN AANTAL 
IKONEN DIE EEN BEPAALDE HANDELIHG VOORSTELLEN. 

MET DE SELECT-TOETS KAN MEN DE LIJNDIKTE BEPALEN, NAMELIJK 

1, 2. 3 OF 4. 

HET FUNCTIETOETS 10 KAN HET PROGRAMMA BECINOIGD UORDEN. 

DE FUNCTIETOETSEN F1 TOT EN MET F 4 HEBBEN DE VOLGENDE 

FUNCTIES: 

F1 LEG HULPKRUIS VAST. DIT KRUIS KNIPPERT 

EN UORDT GEBRUIKT EIJ HET MAKEN VAN CIRKELS 
EN HET TREKKEN VAN LIJNEN TUSSEN TUEE 
PUNTEN. 

F2 VERWISSEL TEKENKRUIS EN HULPKRUIS. 

F3 VERANDER KLEUR TEKENKRUIS, SPUITBUS OF CURSOR. 

F4 VERSNELD OVER HET SCHERM LOPEN, RLS DE CURSOR- 
TCETSEN IHGEDRUKT ZIJN. 

HET TEKENKRUIS KAN BESTUURD UORDEN MET DE CURSORTOETSEN . 
MEN KAN TEKENEN DOOR DE SPRTIEBRL K IHGEDRUKT TE HOUDEN. 

DE TEKENKLEUR KAN GEKOZEN UORDEN MET DE CURSORTOETSEN 
RLS MEN DE CTRL-TOETS IN6EDRUKT HOUDT. 


LET OP 1 I 

Dit is ons nieuwe adres: 

POSTBUS 51<b 
8200 AM LELYSTAD 


7 




































































































10 REM POSTER designer 
20 REM 

30 REM machinetaal en sprites 
40 REM 

50 REM Door: Martin van der Graa-f-f 
60 REM <c)19B7 MSX-Gids Amsterdam 
80 REM 

90 REM initialisatie 

100 CLS: SCREEN0 :COLOR15,1,1:WIDTH37 
110 KEYOFF: CLEAR200, S<HD3FF: DEFI NTA-Z 
120 PRINT"De data wordt in het geheu 
gen geset." 

130 PRÏNT"Even geduld aub." 

140 PRINT 
150 GOTO330 
160 REM 

170 REM data machinetaal 


180 DATA 

3A 

FB 

,F7 

, CD, 

41,01 

,32, 

F 8 

,F7, 

C9 

, 21,00 

,00 

1 1 

, 00 

, AB, 

01,00 

, 18, 

CD 

,59, 

00 

, 21,00 

,20 

1 1 

,00 

,C0, 

0 1 ,00 

, 18, 

CD 

, 59, 

00 

C9,21 

,00 

, A 8 

, 1 1 

, 00 , 

00,01 

, 00 , 

18 

,CD, 

5C 

, 00,21 

,00 

,C0 

,11 

, 00 , 

20,01 

, 00 , 

18 

, CD, 

5C 

00, C9 

, 3A 

EA 

, F3 

,4F, 

12F4 




190 DATA 

21 

,00 

,20 

,06, 

18, C5 

, 11 , 

20 

, 00 , 

19 

06, E0 

, CD 

,56 

, DB 

, 23, 

10, FA 

,C1 , 

10 

, F0, 

C9 

,C5,3A 

,FB 

F7 

,47 

, i-'D, 

4A, 00 

, F5, 

E 6 

, 0 F, 

5F 

,F1,CB 

,3F 

CB 

, 3F 

, CB, 

3F, CB 

,3F, 

FE 

, 00 , 

28 

,03,B9 

,20 

,01 

,7B 

,57, 

7B, FE 

, 00 , 

28 

, 03, 

B9 

20,01 

,78 

5F 

, BA 

, 20 , 

1AB5 




200 DATA 

0F 

, E5 

, CD 

,4D, 

00 , 11 

, 00 , 

E0 

, 19, 

AF 

,CD,4D 

, 00 

, E 1 

,Ci 

,C9, 

CB, 22 

, CB, 

22 

, CB, 

22 

,CB ,22 

,B2 

CD 

, 4D 

, 00 , 

Cl ,C9 

, 21 , 

20 

, 01 , 

11 

, 20,00 

,06 

17 

, CD 

, BE, 

DB, 14 

,24, 

10 

,F9, 

C9 

, 21,20 

,16 

1 1 

,20 

, 17, 

06, 17 

, CD, 

BE 

, D 8 , 

15 

,25,10 

,F9 

C9 

n G ij 

, Dt-,, 

1A18 




21 

0 DATA 

E5 

,06 

,02 

,C5, 

06, E0 

, CD, 

4A 

, 00 , 

E5 

,D5,E 1 

, CD 

, 4D 

,00 

, E 1 , 

13,23 

, 10 , 

F2 

, IE, 

20 

, 2 E ,20 

,06 

1F 

, 14 

,24, 

10, FC 

, Cl, 

10 

,82, 

El 

, Dl,Cl 

,C9 

,21 

,F 8 

, A 8 , 

06, 1 C 

, Co, 

06 

, 02 , 

C5 

,0E,80 

,78 

, FE 

,01 

,28, 

02,0E 

, 08, 

3A 

,CB, 

FF 

,47,C5 

, CD 

, 3A 

, D9 

,06, 

ÏBI 1 




220 DATA 

18 

,C5 

,06 

, 08, 

C5, CD 

,47, 

D9 

,23, 

Cl 

, 10 ,F 8 

,11 

, F 8 

, 00 

, 19, 

Cl , 10 

, 88 , 

3E 

,07, 

CD 

,41,01 

, CB 

,57 

,28 

17 

1 1 , 00 

, 88 , 

19 

,C1, 

10 

,D 8 ,3E 

,0A 

, CD 

, A5 

, 00 , 

Cl , 10 

, C2, 

1 1 

,F 8 , 

FF 

,19,Cl 

, 10 

, B 8 

,C9 

,C 1 , 

C 1 , C 1 

, CD, 

C0 

, 00 , 

C9 

, 11 , 00 

, DD 

,06 

,09 

, 1 A, 

1 B4A 




23’ 

0 DATA 

CD 

, A5 

, 00 

, 13, 

1 0, F9 

,C9, 

E5 

, 11 , 

00 

,18,19 

, 7E 

, E 6 

, 0F 

, 20 , 

03,3A 

, 8 A, 

F3 

, 11 , 

FE 

,DB,47 

,13 

, 13 

, 10 

,FC, 

D5, DD 

, El, 

7E 

, CB, 

3F 

,CB,3F 

,CB 

,3F 

,CB 

, 3F, 

20,03 

,3A, 

EA 

,F3, 

11 

,FE,DB 

,47 

, 13 

,13 

, 10 , 

FC, D5 

, FD, 

El 

, El, 

• • 

06 

, 02,11 

,00 

,00 

, C5 

,06, 

1CDC 




240 DATA 

04 

,7E 

, Al 

,B9, 

28,05 

, DD, 

7E 

, 00 , 

18 

,03,FD 

, 7E 

,00 

,B2 

, *-*7, 

CB, 02 

,CB, 

02 

, CB, 

39 

,10,E9 

, CB 

,0A 

, CB 

, 0 A, 

7A, CD 

, Ao, 

00 

,3A, 

88 

,D9,3C 

,32 

,88 

, D9 

,32, 

8D,D9 

,81, 

10 

, CE, 

3E 

,00,32 

,88 

, D9 

^ 32 

, 8 D, 

D9,C9 

, 21 , 

F 8 

, A 8 , 

• • 

06 

q 10 q G ü 

,08 

,04 

,C5 

, 0 E, 

1 B 88 




250 DATA 

02 

,CB 

,09 

, CB , 

09, 10 

, F A, 

3A 

, CB, 

FF 

,47,C5 

, CD 

,0A 

, DA 

,06, 

18 , C5 

,06, 

08 

, C5, 

CD 

,17,DA 

,23 

, Cl 

, 10 

,F 8 , 

11 ,F 8 

, 00 , 

19 

,C1, 

10 

,EE,3E 

,07 

, CD 

,41 

, 01 , 

CB, 57 

,28, 

17 

, 11 , 

00 

,88,19 

,C1 

, 10 

, D 8 

,3E, 

0A, CD 

, A5, 

00 

,C1 , 

10 

,C3,11 

,F 8 

, FF 

, 19 

,C1, 

1B56 




260 DATA 

10 

, B9 

,C9 

,C1, 

Cl,Cl 

, CD, 

C0 

, 00 , 

C9 

, 11,20 

, DD 

,06 

,09 

, IA, 

CD, A5 

, 00 , 

13 

, 10 , 

F9 

,C9,E5 

,11 

, 00 

, 18 

, 19, 

7E, E 6 

,0F, 

20 

,03, 

3A 

,EA,F3 

,11 

, 1 B 

, DC 

,47, 

13, 13 

, 13, 

10 

, FB, 

D5 

,DD,E 1 

, 7E 

, CB 

,3F 

,CB, 

3F, CB 

,3F, 

CB 

, 3F, 

20 

,03,3A 

, EA 

,F3 

, 1 1 

, 1B, 

1BBF 




270 DATA 

DC 

,47 

, 13 

, 1 v -* 1 , 

13, 10 

, FB, 

D5 

,fd, 

El 

,E 1 ,06 

,03 

, 11 

, 00 

, 00 , 

C5,06 

, 02 , 

7E 

, Al, 

B9 

,28,05 

, DD 

, 7E 

,00 

, 18, 

03, FD 

, 7E, 

00 

,82, 

57 

,CB,02 

, CB 

,02 

, CB 

, 02 , 

CB, 39 

, 10 , 

E7 

, CB, 

0A 

,CB,0A 

, CB 

,0A 

, 7A 

, CD, 

A5,00 

,3A, 

5A 

, DA, 

3C 

,32,5A 

, DA 

, 32 

, 5F 

, ba , 

1A29 





280 DATA 

Cl 

, 10 

, CA 

l| O tl 

, 00 

,32 

* 5A 

,da, 

32, 

5F 

, DA 

,C9 

,2A 

,F 8 

i F7 

,06 

,0E 

,C5 

,06 

,08, 

G«j 4 

0 E 

,01 

, CB 

,09 

, 10 

, FC 

,3A 

, CB 

, FF 

,47 

, Co, 

CD , 

0A 

, DA 

,06 

,0C 

,C5 

,06 

,08 

,C5 

,CD 

, DE 

, DA, 

23, 

Cl 

, 10 

,F 8 

,11 

, FB 

,00 

, 19 

,C1 

, 10 

•* 

, EE 

,3E, 

07, 

CD 

,41 

,01 

, CB 

,57 

,28 

, 17 

, 1B99 



V 

290 DATA 

' 11 

,00 

,F4 

, 19 

,C1 

, 10 

,D 8 

,3E, 

0A, 

CD 

, A5 

,00 

,Ci 

, 10 

, C5 

,11 

,FB 

, FF 

, 19 

r 

,C1, 

10 , 

BB 

,C9 

,C1 

,C1 

,C1 

, CD 

, C0 

,00 

,C9 

4 E5 

, 11 , 

00 , 

18 

, 19 

, 7E 

,86 

, 0F 

, 20 

,03 

,3A 

,EA 

* F3 

, 11 , 

45, 

DC 

,47 

, 13 

, 13 

, 13 

,13 

, 13 

, 13 

, 10 

,FB 

, D«_j , 

DD, 

El 

,7E 

, CB 

, 3F 

, CB 

, 3 F 

, CB 

, 1 CDD 




300 DATA 

3F 

, CB 

,3F 

,20 

,03 

, 3A 

, EA 

,F3, 

11 , 

45 

, DC 

,47 

, 13 

, 13 

, 13 

,13 

, 13 

, 13 

,10 

,F 8 , 

D5, 

FD 

,E 1 

, E 1 

, 7E 

, Al 

,89 

,28 

,05 

, DD 

^ Eu) 

, Dl, 

18, 

03 

, FD 

, E5 

, Dl 

,06 

,06 

, IA 

t CD 

, A5 

, 00 

,13, 

10 , 

F9 

,C9 

, oA 

, FB 

,F7 

,FE 

,00 

,28 

,07 

, CD 

,A 8 , 

00 , 

32 

,FB 

,F7 

,C9 

, CD 

, 56 

,01 

, 1 DC 6 




31 

0 DATA 

C9 

,21 

,00 

,D4 

,11 

,00 

, 38 

,01 , 

80, 

03 

, CD 

, jC 

,00 

,C9 

,00 

, 00 

,00 

,00 

,00 

, 00 , 

00 , 

00 

, 00 

,00 

,00 

,00 

,00 

,00 

,00 

,00 

, 00 

, 00 , 

00 , 

00 

,00 

,00 

,00 

,00 

,00 

,00 

,00 

,00 

,00 

, 00 , 

00 , 

00 

,00 

,00 

,00 

,00 

,00 

,00 

,00 

,00 

, 00 

, 00 , 

00 , 

00 

,00 

,00 

,00 

,00 

,00 

,00 

, 047D 





320 RÈM 

330 RESTORE180 
340 RN=180 

350 FORI =8<HD800TO&HDB40STEP64 
360 CG=0 ï FOR 3 =ITOI+63 
370 READHS 

380 POKEJ , VAL ( "&H ,, +H$) 

390 CG=CG+VAL < ” &H " +H3Ü 
400 NEXTJ 
410 READCG* 

420 IF VAL ( " &H " +CG$) < >CGTHENPR I NT " Dat 

a -fout in regel " ; RN$ CHR$ ( 8 ) ; " . " : STOP 

430 RN=RN+10 

440 NEXTI 

450 GOTO3100 

460 REM 

470 REM data grijspatronen 
480 REM 

490 REM -formaat 1 

500 REM 

510 REM 1 

520 DATA 11 

530 DATA 11 

540 REM 

550 REM 2 

560 DATA 00 

570 DATA 11 

580 REM 

590 REM 3 

600 DATA 10 

610 DATA 01 

620 REM 

630 REM 4 

640 DATA 01 

650 DATA 11 

660 REM 

670 REM 5 

680 DATA 10 

690 DATA 10 

700 REM 

710 REM 6 

720 DATA 11 

730 DATA 01 

740 REM 

750 REM 7 

760 DATA 10 

770 DATA 00 

780 REM 

790 REM 8 

800 DATA 01 

810 DATA 01 

820 REM 

830 REM 9 

840 DATA 01 


8 










850 

DATA 

10 

860 

REM 


870 

REM 

10 

380 

DATA 

01 

390 

DATA 

00 

900 

REM 


910 

REM 

11 

920 

DATA 

00 

930 

DATA 

10 

940 

REM 


950 

REM 

12 

960 

DATA 

1 1 

970 

DATA 

10 

980 

REM 


990 

REM 

13 

1000 

l DATA 11 

1010 

i DATA 00 

1020 

i REM 



1030 REM 14 
1040 DATA 00 
1050 DATA 01 
1060 REM 
1070 REM 15 
1080 DATA 00 
1090 DATA 00 
1100 REM 

1110 REM -formaat 2 
1120 REM 
1130 REM 1 
1140 DATA 111 
1150 DATA 111 
1160 DATA 111 
1170 REM 
1180 REM 2 
1190 DATA 010 
1200 DATA 111 
1210 DATA 010 
1220 REM 


1620 REM 
1630 REM 11 
1640 DATA 000 
1650 DATA 010 
1660 DATA 000 
1670 REM 
1680 REM 12 
1690 DATA 110 
1700 DATA 101 
1710 DATA 011 
1720 REM 
1730 REM 13 
1740 DATA 110 
1750 DATA 010 
1760 DATA 101 
1770 REM 
1780 REM 14 
1790 DATA 010 
1800 DATA 100 
1810 DATA 000 
1820 REM 
1830 REM 15 
1840 DATA 000 
1850 DATA 000 
1860 DATA 000 
1870 REM 

1880 REM formaat 
1890 REM 
1900 REM 1 
1910 DATA 111111 
1920 DATA 111111 
1930 DATA 111111 
1940 DATA 111111 
1950 DATA 111111 
1960 DATA 111111 
1970 REM 
1980 REM 2 
1990 DATA 100100 


2390 

DATA 

000000 

2400 

DATA 

111011 

2410 

DATA 

000000 

2420 

DATA 

000000 

2430 

DATA 

110111 

2440 

DATA 

000000 

2450 

REM 


2460 

REM I 

B 

2470 

DATA 

010010 

2480 

DATA 

100100 

2490 

DATA 

011001 

2500 

DATA 

010010 

2510 

DATA 

100110 

2520 

DATA 

001001 

2530 

REM 


2540 

REM < 

9 

2550 

DATA 

100001 

2560 

DATA 

010110 

2570 

DATA 

010000 

2580 

DATA 

000010 

2590 

DATA 

011010 

2600 

DATA 

100001 

2610 

REM 


2620 

REM 

10 

2630 

DATA 

100101 

2640 

DATA 

010000 

2650 

DATA 

000101 

2660 

DATA 

010010 

2670 

DATA 

100000 

2680 

DATA 

001001 

2690 

REM 


2700 

REM : 

1 1 

271 0 

DATA 

000000 

2720 

DATA 

010010 

2730 

DATA 

000000 

2740 

DATA 

000000 

2750 

DATA 

010010 

2760 

DATA 

000000 



1230 REM 3 
1240 DATA 000 
1250 DATA 110 
1260 DATA 011 
1270 REM 
1280 REM 4 
1290 DATA 011 
1300 DATA 101 
1310 DATA 111 
1320 REM 
1330 REM 5 
1340 DATA 101 
1350 DATA 010 
1360 DATA 101 
1370 REM 
1380 REM 6 
1390 DATA 011 
1400 DATA 101 
1410 DATA 110 
1420 REM 
1430 REM 7 
1440 DATA 000 
1450 DATA 111 
1460 DATA 000 
1470 REM 
1480 REM 8 
1490 DATA 001 
1500 DATA 111 
1510 DATA 100 
1520 REM 
1530 REM 9 
1540 DATA 010 
1550 DATA 101 
1560 DATA 010 
1570 REM 
1580 REM 10 
1590 DATA 010 
1600 DATA 010 
1610 DATA 100 


2000 

DATA 

010010 

2010 

DATA 

101001 

2020 

DATA 

100101 

2030 

DATA 

010010 

2040 

DATA 

001001 

2050 

REM 


2060 

REM 3 

1 

2070 

DATA 

001000 

2080 

DATA 

01001 0 

2090 

DATA 

00 1100 

2100 

DATA 

100010 

2110 

DATA 

010000 

21 20 

DATA 

001001 

2130 

REM 


2140 

REM 4 


2150 

DATA 

101 110 

2160 

DATA 

110101 

2170 

DATA 

101111 

2180 

DATA 

011101 

2190 

DATA 

101011 

2200 

DATA 

110110 

2210 

REM 


2220 

REM 5 

1 

2230 

DATA 

1001 00 

2240 

DATA 

0 10011 

2250 

DATA 

111010 

2260 

DATA 

101100 

2270 

DATA 

010001 

2280 

DATA 

100101 

2290 

REM 


2300 

REM 6 

\ 

2310 

DATA 

101010 

2320 

DATA 

011011 

2330 

DATA 

010111 

2340 

DATA 

101101 

2350 

DATA 

101010 

2360 

DATA 

010111 

2370 

REM 


2380 

REM 7 



2770 

REM 


2780 

REM 1 

2 

2790 

DATA 

110U0 

2800 

DATA 

101101 

2810 

DATA 

011011 

2820 

DATA 

110110 

2830 

DATA 

101101 

2840 

DATA 

011011 

2850 

REM 


2860 

REM 1 

3 

2B70 

DATA 

000111 

2880 

DATA 

111000 

2890 

DATA 

001100 

2900 

DATA 

000111 

2910 

DATA 

111000 

2920 

DATA 

001100 

2930 

REM 


2940 

REM 14 

2950 

DATA 

100001 

2960 

DATA 

010010 

2970 

DATA 

000000 

2980 

DATA 

001000 

2990 

DATA 

010010 

3000 

DATA 

000001 

3010 

REM 


3020 

REM 1 

5 

3030 

DATA 

000000 

3040 

DATA 

000000 

3050 

DATA 

000000 

3060 

DATA 

000000 

3070 

DATA 

000000 

3080 

DATA 

000000 

3090 

REM 


3100 

RESTDRE520 

3110 

CG=0: 

FORI=0TO164 

3120 

READB* 

31 30 

POKE&HDC00+1 , VAL (”8<B"+B$) 

3140 

CG=CG+VAL < ” 2<B " +B$) 

3150 

NEXTI 







3160 IFCG02538THENPR INT "Data -fout i 
n de regels 520 t/m 3080.”:STGP 
3170 GOT03350 


3180 REM 


3190 REM 

dat 

a spri 

tes 





3200 DATA 

FF 

,80 

,80 

,83 

,84,88 

,90 

,90 

,90 

,90 

,88,84 

,83 

,80 

,80 

, FF 

, FF,01 

,01 

,C1 

,21 

,11 

,09 ^ 09 

,09 

,09 

, 11 

,21 

,C1,01 

,01 

f FF 

, FF 

,80 

,80,83 

,87 

, 8 F 

,9F 

, 9F 

,9F,9F 

, 8 F 

,87 

,83 

,80 

,80,FF 

, FF 

,01 

,01 

, Cl 

,El,F 1 


,F9 

, F9 

,F9 

, F 1 , E 1 

,C1 

,01 

,01 

, FF 

, 2220 




3210 DATA 

FF 

, 80 

,80 

, 9F 

,90,90 

,90 

,90 

,90 

,90 

,90,90 

,9F 

, 80 

, 80 

, FF 

,FF,01 

,01 

,F9 

,09 

,09 

,09,09 

,09 

, 09 

,09 

,09 

, F 9,01 

,01 

, FF 

, FF 

,B 0 

,80,9F 

5 9F 

,9F 

, 9F 

, 9F 

,9F,9F 

,9F 

,9F 

,9F 

,80 

,80,FF 

,ff 

,01 

,01 

, F9 

,F9,F9 

,F9 

,F9 

,F9 

,F9 

', F9 ,F9 

s F9 

,01 

,01 

, FF 

, 23É8 




3220 DATA 

FF 

,80 

, 80 

,80 

,80,80 

,80 

,81 

,82 

,84 

,88,90 

, A0 

,80 

,80 

, FF 

,FF ,01 

,01 

,01 

,01 

,41 

,A1,11 

,09 

,01 

,01 

,01 

, 01,01 

,01 

, FF 

, FF 

,80 

,80,80 

,80 

, 80 

,80 

,81 

,83,8E 

,92 

, A2 

, B4 

,B 8 

,80,FF 

,FF 

,01 

, 0D 

, 1D 

,39,71 

, El 

,C1 

,81 

,01 

, 01,01 

,01 

,01 

,01 

, FF 

, 1 AÈD 




323 

0 DATA 

FF 

,80 

, A0 

,88 

,A 2,88 

, A0 

,80 

,80 

,80 

,80,80 

,80 

,80 

,80 

, FF 

,FF,01 

,01 

,71 

, Dl 

,51 

,F9,F9 

, F9 

,89 

,89 

,89 

,89,F9 

,01 

, FF 

, FF 

,80 

,BB,AA 

, BB 

, AA 

, AB 

,80 

,80,9D 

,95 

,95 

,95 

,9D 

,80,FF 

, FF 

,01 

, 89 

, Al 

,Al,Al 

,89 

,01 

,01 

,DD 

,11,99 

,11 

, Dl 

, 01 

, FF 

, 2538 




3240 DATA 

FF 

,80 

, 80 

,81 

,83,87 

,81 

,81 

,81 

,81 

,81,81 

,81 

,80 

, 80 

, FF 

,FF,01 

,01 

,81 

,C1 

, E 1 

,81,81 

,81 

,81 

, 81 

,81 

,81,01 

,01 

, FF 

, FF 

,80 

,80,81 

,81 

,81 

,81 

,81 

,81,81 

,87 

q 8 O 1 

,81 

,80 

,80,FF 

, FF 

,01 

,01 

,81 

,81,81 

,81 

,81 

,81 

,81 

,E 1 ,Cl 

,81 

,01 

,01 

, FF 

,2178 




3250 DATA 

FF 

,80 

, BF 

, A0 

,A 0 ,A 0 

, A0 

, A0 

, A 0 

, A0 

,A 0 ,A 0 

, A0 

!, BF 

,80 

, FF 

,FF,01 

, FD 

,05 

,05 

,05 

,05,05 

,05 

,05 

, 3D 

, 39 

,31,El 

,01 

, FF 

, FF 

,80 

,9F,A 0 

, A0 

, BF 

, BF 

, BF 

,BF,BF 

, BF 

, A0 

, A0 

,9F 

,80,FF 

, FF 

,01 

,F9 

,05 

,05,FD 

, FD 

5 PD 

, FD 

, FD 

,FD,05 

,05 

, F9 

,01 

, FF 

, 248E 




3260 DATA 

FF 

,80 

,84 

,86 

,9F,96 

,94 

,90 

,90 

,90 

,90,9F 

,80 

,80 

,80 

, FF 

,FF , 01 

,45 

, 6 D 

, 55 

,45 

,45,01 

,39 

,45 

,7D 

, 7D 

,45,39 

,01 

, FF 

, FF 

,80 

,80,80 

,9F 

, 90 

,90 

,90 

,90,94 

,96 

, 9F 

,86 

,84 

,80,FF 

j FF 

,01 

,45 

, 6 D 

q uO ^ 4u 

, 45 

,01 

,39 

,45 

,7D,7D 

, 45 

,39 

,01 

, FF 

, 1E70 




3270 DATA 

FF 

,80 

, BB 

, BB 

,BA,BA 

,B 8 

, BF 

,B 8 

,B7 

,B7,B7 

,87 

, B7 

,80 

, FF 

,FF ,01 

, Dl 

,D9 

, 5D 

, wJ D 

, 1D,FD 

, 1D 

, ED 

!, ED 

, ED 

,ED,ED 

,01 

, FF 

, FF 

,80 

, 8 F ,88 

, 8 A 

, 88 

, BA 

,88 

,9F,BF 

, A0 

, AE 

, A0 

, BF 

,80,FF 

, FF 

,01 

, F 1 

, 1 1 

q uj 1 4 i i 

,51 

, 11 

,F9 

, FD 

^ 0 U j| U tJ 

,05 

, FD 

,01 

, FF 

, 2742 




3280 DATA 

80 

,41 

,22 

, 14 

,00,14 

,22 

,41 

,80 

,00 

, 00 , 00 

,00 

,00 

, 00 

,00 

, 80 , 00 

,00 

,00 

,00 

,00 

, 00,00 

,80 

,00 

, 00 

, 00 

, 00 , 00 

,00 

,00 

,80 

,40 

, 21,12 

,00 

,00 

, 12 

,21 

, 40 , 80 

,00 

,00 

,00 

,00 

, 00,00 

, 40 

,80 

,00 

, 00 

, 00,00 

,00 

, 00 

,80 

,40 

, 00,00 

,00 

,00 

,00 

,00 

, 654 




3290 DATA 

80 

,40 

, 20 

, 1 1 

, 00 , 00 

,00 

, 1 1 

,20 

, 40 

,80,00 

,00 

, 00 

,00 

,00 

,20,40 

,80 

,00 

,00 

,00 

,00,00 

,80 

!, 40 

, 20 

,00 

,00,00 

,00 

,00 

,80 

,40 

,20,10 

, 00 

,00 

, 00 

, 00 

,10,20 

,40 

,80 

,00 

,00 

,00,00 

, 10 

,20 

, 40 

, 80 

,00,00 

,00 

, 00 

,80 

,40 

,20,10 

,00 

, 00 

,00 

,00 

,762 




3300 DATA 

80 

,21 

,8B 

,21 

,83,03 

,03 

,02 

,02 

,02 

,02,03 

,00 

, 00 

,00 

,00 

,00,C0 

,40 

,40 

,E0 

, E0 

,E0,20 

,20 

,20 

,20 

,E0 

,00,00 

,00 

,00 

, FF 

,80 

,81,82 

,84 

,84 

,88 

,88 

, 88i88 

,84 

,84 

,82 

,81 

,80,FF 

,ff 

,01 

,81 

,41 

,21,21 

,11 

,11 

, 1 1 

,11 

,21,21 

,41 

i.81 

,01 

, FF 

, 14A1 




3310 DATA 

FF 

,80 

,80 

,80 

, 8o* , 8C 

,90 

, A0 

, A0 

,90 

, 8C , 83 

,80 

,80 

,80 

, FF 

„ FF,01 

,01 

,01 

,C1 

,31 

, 09 , 05 

, 05 

,09 

,31 

,C1 

,01,01 

,01 

, FF 

,00 

,00 

, 00 , 00 

,00 

,FF 

,80 

,80 

,80,80 

,80 

,80 

,80 

,80 

,80,FF 

,00 

,00 

,00 

,00 

,00,F0 

, 10 

, 10 

, 1® 

, 10 

•• 

,10,10 

, 10 

, 10 

, 10 

,F0 

, 166E 





3320 DATA 

FF 

*1 

00, 

00, 

00, 

00 

, 00, 

00, 

00, 

00 

, FF 

,00 

, 00, 

00 

5 

00, 

00, 

00, 

00 

,00, 

00, 

00, 

00 

,00 

,00 

, 00 , 

00 

5 

00, 

00, 

00, 

00 

, 00, 

00, 

00, 

B0 

,80 

,80 

,80, 

80 

? 

80, 

80, 

80, 

80 

,80, 

80, 

80, 

80 

,80 

,80 

,80, 

00 

5 

00, 

00, 

00, 

00 

, 00, 

00, 

00, 

00 

,00 

,00 

, 00, 

00 

? 

00, 

00, 

00, 

9FE 



t 

3330 DATA 

FF 

5 

FF, 

FF, 

FF, 

FF 

,FF, 

FF, 

FF, 

00 

,00 

,00 

, 00, 

00 

5 

00, 

00, 

00, 

00 

, 00, 

00, 

00, 

00 

,00 

,00 

, 00, 

00 

? 

00, 

00, 

00, 

00 

, 00, 

00, 

00, 

08 

,0C 

, FE 

,FF, 

FF 

5 

FE, 

0C, 

08, 

00 

, 00, 

00, 

00, 

00 

,00 

,00 

, 00, 

00 

5 

00, 

00, 

00, 

00 

,00, 

00, 

00, 

00 

,00 

,00 

, 00 , 

00 

5 

00, 

00, 

00, 

CL 

A 





3340 RÉM 

3350 RESTORE3200 

3360 RN=3200:CG=0 

3370 FORI =S<HD400T0&HD760BTEP64 

3380 F0RJ=ITO1+63 

3390 READH$ 

3400 POKEJ,VAL("&H"+H$) 

3410 CG=CG+VAL ( "£<H"+H$) 

3420 NEXTJ 
3430 READCG* 

3440 IFVAL ( ”8<H”+CG$) < >CGTHENPRI NT "Da 
ta -fout in regel";RN;CHR$(8);".”:STD 
P 

3450 RN=RN+10 s CG=0 
3460 NEXTI 
3470 REM 

3480 REM SAVEn machinetaalprogramma 
3490 CLS 

3500 PRINT"U kunt het geheel nu save 
n met;" 

3510 PRINT 

3520 PRINT"BSAVE";CHR$(34);"apparaat 
naam: POSBIN" ; CHR$ (34) ; " , &HD400, &HDD0 
0,&HDB41" 

3530 PRINT 

3540 PRINT"Dit programma moet, bij c 
assette 

3550 PRINT"gebruik, achter het basic 
-programma" 

3560 PRINT"staan." 

3570 PRINT"Na het 'runnen’ van het b 
asi c " 

3580 PRI NT"programma wordt het gel ad 
en met" 

3590 PRINT"een ’BLOAD’ opdracht." 
3600 PRINT 
3610 END 
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DE MUUR 


ALLEEN MSH-H ! 

Aan de muur wordt nog gebouwd; er vallen voortdu¬ 
rend betonblokken naar beneden. Als je mannetje 
zo’n blok op lijn kop krijgt is het natuurlijk afgelo¬ 
pen. Ontwijk de blokken door het mannetje met de 
cursortoetsen naar links en rechts te bewegen. Als 
het mannetje de luchtballon bereikt, kan hij over de 
muur en is het de beurt aan het volgende mannetje. 
Nu wordt het wel moeiiijker. 

Zo, en verder geven we geen informatie. Je komt 
overal zelf wel achter tijdens het spelen van dit 
eenvoudige, maar zeer boeiende spel. 



r i i n 

1 

1 


j _i_ i i 

M 

. * . 



1 1 




Jl— ! 


300 ' -DOOD 


ALLEEN VOOR MSX-2 

10 ' fc***************************** 


11 ’* * 

12 ’* De MUUR * 

13 ’ * * 

14 ’* Door: Jan de Vries * 

15 ’* en Rik Wanders * 

16 ’ * * 

17 1 * <c>1987 MSX-Gids Amsterdam * 

18 ’ * * 


1 I sl* ^ ^ \Ls O/ d/ ^ ^ ^ ^ ^ ^ ^ ^ 'i/ 4^ ^ >|f 

L y vfs /f. ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ‘T* ‘T -T* T 

20 SET BEEP 1,1 

30 CLS:COLOR 15,6,6:KEYOFF: SCREEN0 
40 LOCATE10,10:PR INT”Wil je spelrege 
ls J/n?” 

50 A$=INKEY$: IFA$=””THEN50 
60 I FA$=”N”ORA$=" n”THEN90ELSEIFA$=" J 
”ORAS="j”THENGOSUB 2470ELSE50 
70 PRINT:PRINT” Dr 

uk op <RTN>"; 

80 A$=INKEYS: IFA$=CHR$ <13)THEN90ELSE 
80 

90 GOSUB 600 
100 GOSUB 1760 

110 ON INTERVAL 3 IT GOSUB 380:INTERVA 
L ON 

120 XM=9:YM=1:XO=XM:YO=YM:GOSUB 520 
130 ON SPRITE GOSUB 300:SPRITE ON:GO 
TO 250 

140 XO=XM:YO=YM 

150 IF YM>12 AND XM=3 THEN GOTO 100 
160 IF DOOD OR EINDE THEN GOTO 100 
170 IF (STICK<0)=3 OR STICK(1)=3> AN 
D XM<12-<YM>11) THEN XM=XM+1:GOTO200 
180 IF (STICK(0> =7 OR STICK(1)=7) AN 
D XM> 4+(YM>11> THEN XM=XM-1:GOTO200 
190 GOTO140 
200 IF YM=1 THEN 220 

210 IF SP(XM,YM-1)=0 THEN YM=YM-l:GO 
TO200 

220 IF SP(XM,YM)=0 THEN 250 
230 YM=YM+1 

240 IF SP(XM,YM)=1 THEN XM=XO:YM=YO: 
GOTO 170 

250 IF YO-YM>4 THEN GOSUB 310 
260 PLAY"S0M500T128L64A” 

270 PUTSPRITE2,(FNX(XM)+3,FNY(YM)-2) 

, 2,2 ' 

280 FOR T=1 TO 50:NEXT 

290 GOTO 140 


310 SPRITE OFF 

320 DOOD=JA:BEEP 

330 PLAY "T14M50T64L64O1AFA” 

340 XD=FNX(XM)+1:YD~FNY<YM>+16 

350 DRAW”C6BM=XD;,=YD;R11L1D1L8R1DJP 

6D1L6R2BR3R2BL6D1R1BR4R1BL5D4U4BR4D5 

360 DRAV’’C2BM=XD; , =YD; U1R11L1U1L8R1U 
1R6” 

370 RETURN 

380 ’-BLOK LIGT?- 


390 IF NOT BV OR VB=0 THEN 520 
400 IF SP(HB,VB-1)=1 OR VB=1 THEN 42 
0 

410 VB=VB-1:PUTSPRITE1,(FNX<HB),FNY( 

VB)+5),14,1:RETURN 

420 XL=FNX(HB):YL=FNY(VB)+6 

430 LINE (XL,YL>-<XL+13,YL+7),14,BF 

440 LINE (XL-1, YL-D-(XL + 14, YL+8) , 1, 

B 

450 SOUND 13,0:SOUND12,25 :SOUND11,0 
:SOUND0,150:SOUND1, 1:SOUND0, 1:SO 

UND3,100:SOUND4, 50:SOUND5,150:SOUND 
6,50 :S0UND7,11 :SOUND8,255:SOUND9,1 
:SOUND10,16 

460 SOUND 13,9:SOUND12,2:SOUND0,150: 
SOUND1,100:SOUND2,255:SOUND3,100:SOU 
ND4, 50:SOUNDS,150:SOUND6,50 :SOUND7 

,15 :SOUND8, 0:SOUND9, 0 :SOUND10,16 
470 PUT SPRITE 1,(0,0),0,0 
480 SP(HB,VB)=1 
490 BV=NEE 
500 RETURN 

510 ’-BLOK VALT- 


520 IF AF THEN BV=NEE:RETURN:ELSE HB 
=XM:VB=20 

530 IF RND(1)<.3 THEN HB=RND(1)*16 

540 IF HB<4 OR HB>12 THEN 530 

550 BV=J A 

560 AS=AS+1 

570 RETURN 

580 COLOR 1,15,15 

590 *-INIT- 

600 CLS:KEYOFF:SCREEN3 

610 OPEN”GRP:"FOROUTPUT AS #1 

620 COLOR 1 

630 A1$ 3 ”HHIHV’: ’=[GRAPH]+ plplplp 
640 A2S 3 ”|HHHi’: ’ =[GRAPHI+ lplplpl 
650 FOR Q=6 TO 0 STEP -2 
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660 PRESET(4,4®*Q>:PRINT#1,AIS: FRESE 
T <0, 40*<Q-1) > : PR I NT#1, A2S 
670 NEXT 
680 COLOR,7 

690 PRESET<0,50):PRINT#1, ” BERLIJN” 

700 COLOR 4 

710 PRESET<0, 150):PRINT#1, ” 1961” 

720 FOR 1=1 TO 2000:NEXT 

730 SCREEN5,2:COLOR 4,4,4 

740 CLS:DEFINT A-Z 

750 SET PAGE 0,1:COLOR 4,4:CLS 

760 COLOR 4,4:CLS 

770 CIRCLE<50,50),16, 8,0,4*ATN<1),1 

I 

780 CIRCLE<50,50),24, 8,4*ATN<1),0,1 

. 5 

790 PA INT (45,45),8, 8 

800 CIRCLE(50,50),10,1 

810 PAINT (50,50),11,1 

820 LINE (45,90)-<55,98),13,BF 

830 LI NE (45,90)-(34,50),15 

840 LINE (55,90)-(66,50),15 

850 LINE (50,90)-(50,35),15 

860 ClRCLE <42,50), 8,15,0,4*ATN(1),1 


870 ClRCLE(58,50), 8,15,0,4*ATN<1),1 

t 

380 ClRCLE<50,50),16,15,0,4*ATN<1),1 


890 ClRCLE(50,50),24,15,4¥ATN (1),0,1 
. 5 

900 COPY (34,34)-(66,98),1 TO (70,3 
4) , 1 

910 SET PAGE 0,0 
920 D J M SP(16,20) 

930 DEF FNX<X)=1+X*15 
940 DEF FNY(Y)=186-Y*10 
950 RESTORE 1710' 

960 S$=” ” : FOR Q= 1 TO 16.-READ A:SS=SS 
+CHRS(A):NEXT:SPRITES <2)=S$ 

970 RESTORE 1740 


980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

P 

1230 

1 

1240 


FOR Q=1 TO 9:READ IT<Q):NEXT 
LINE(0,190)-(255,0).1,B 
LINE (2,72)- (57,72), 1 
LINE (57,72)-<57,100),1 
LINE (57,100)-(85,100), 1 
LINE (85,100)-(105,80),1 
LINE <105,80)-(125, 100), 1 
LINE (125,100)-(130,100),1 
LINE (130, 100)- (130,70), 1 
LINE (130,70)-(155,70), 1 
LINE (155,70)-(155,120),1 
LINE (155, 120)-(175, 100), 1 
LINE <175,100)-(198,120),1 
LINE (198,120)-(198,72),1 
LINE (198,72)-(254,72),1 
LINE <254,72)-(254, 183), 1 
LINE (254, 188)-(2, 188),1 
LINE (2,188)-(2,72),1 
PAINT (10,180),1,1 
FOR X=135 TO 145 STEP 10 
FOR Y= 80 TO 160 STEP 10 
LINE (X,Y>-(X+5,Y+3), 7, BF 
NEXT:NEXT 
COLOR11,1 

M1$=”B«BB’: ’ =IGRAPHI+ plplpl 
K2$-'|||H' : ’ =C GRAPHI + lplplp 


Y=102 


1250 FOR X=3 TO 205 STEP 194 
1260 FORY= 72 TO 191 STEP 20:BEEP 
1270 PSET(X,Y):PRINT#1,MIS 
1280 PSET(X,Y+10):PRINT#1,M2S 
1290 NEXT Y,X 


1300 PI=2*ATNC1) 

1310 FOR X=205 TO 250 STEP 3 
1320 CIRCLE(X,65), 6,14,1.2*PI,.8*PI 
, 1 

1330 CIRCLE(X+2,65), 8,14,1.2*PI,.8* 
PI , 1 

1340 NEXT 

1350 SPRITES(1)=STRINGS(8,255)+STRIN 
GS (8,0)+STRINGS(8,252)+STRINGS(8,0) 
1360 LINE(8,90)-(54, 130), 15, BF 
1370 SPRITES(3)=STRING$(8,128)+STRIN 
GS (24,0) 

1380 LINE(8,90)-(54,130), 1,B 

1390 PRESET(13,100):COLOR1,15:PRINT# 

1,”SCORE” 

1400 LINE (247,90)-(200,130),15,BF 
1410 LINE <247,90)-(200, 130), 1,B 

1420 PRESET(205,97):COLOR1,15:PRINT# 
1,”HI-SC” 

1430 LINE (200, 138)-(247, 158), 15, BF 
1440 LINE (200,138)-<247,158), 1,B 

1450 COPY (0,0)-(255,220),0 TO (0,0) 

, 2 

1460 PUT SPRITE 9, (200,60),4,3 
1470 GOSUB 2770 
1480 RETURN 

1490 ’-SCORE LIJST— 

W- 

1500 INTERVAL OFF 

1510 TFSOHI THENHI=SC 

1520 IF SOGR AND AL<5 THEN COLOR=<4 

,7,0,0):AL=AL+1:GR=GR+1000: BEEP: PLAY 

”vl5s0m5000132adad":GOSUB 2610 

1530 PRESET(10,120):COLOR 1,15:PRINT 

#1,USING”#####”;SC 

1540 PRESET(205,110):COLOR1,15:PRINT 
#1,USING”#####”;Hl 
1550 FOR Q=1 TO 4 

1560 PUT SPRITE 10+Q, <195+10*Q,140), 
-(Q<=AL),2 
1570 NEXT 
1580 RETURN 

1590 ’-DOOD- 

1600 RETURN 
1610 SCREEN2 
1620 FORX=0TO255 
1630 PSET(X+l,100) 

1640 PRESET(X,100) 

1650 NEXTX 

1660 FORY=0TO191 

1670 PSET(50,Y+l) 

1680 PRESET(50,Y) 

1690 NEXTY 
1700 RETURN 

1710 ’-SPRITES- 

1720 DATA 60,90,255.66,255,126,24,24 
,255,24,24,60,36,36,231,195,60,14,37 
,1,60,0,0,36,129,36,36,0,0,0,195,0 
1730 ’ interval 

1740 DATA 6,6, 5,5, 4,4,4.4, 3 

1750 ’-NIEUW LEVEL- 

V- 

1760 IF DOOD THEN PUTSPRITE2,(250,0) 

,0,0:GOTO 1820 

1770 FOR X=49 TO 19 STEP -1 

1780 PLAY"S0M500T128L64A” 

1790 PUTSPRITE2,(X,56),2,2:NEXT:BEEP 

1800 PUTSPRITE2,(250,0),0,0 

1810 SETPAGE0,1:DRAW”C2BM47,89U3D3R1 

U5D5R1U6”:SET PAGE 0,0 

1820 AF=J A:BEEP 

1830 IF BV THEN 1830 

1840 INTERVAL OFF 

1850 X=5:FOR Y=30 TO 50 
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1860 COPY<30, Y)-< 66 ,99 ),1 TO (X,l>, 
0 

1870 X=X+1:NEXT 
1880 FOR X=26 TO 255 

1890 COPY <30,50 >-<66,98),1 TO <X,1), 
0 

1900 NEXT 

1910 ERASE SP: DIM SP<16,20) 

1920 SP<3,12)=1:SP<13,12)=1 

1930 SP <3,11) = 1:SP <13,11) = 1 

1940 IF NOT DOOD THEN SC=SC+AS+AL*10 

+LVL*100:LVL=LVL+1:BEEP:PLAY"V1504L8 

CDEFGA”:IF LVL>9 THEN LVL=9 

1950 COLOR 15 

1960 IF DOOD THEN AL=AL-1 

1970 COPY <0,0>-C255,220),2 TO ( 0 , 0 ) 

,0 

1980 GOSUB 1500 

1990 IF AL=-1 THEN GOSUB 2370 

2000 DOOD=NEE:EINDE=NEE: AF=NEE 

2010 IT=IT(LVL): AS=0 :AF=NEE 

2020 ON LVL GOTO 2030,2040,2050,2060 

,2070,2080,2090,2100,2110 

2030 RESTORE 2190:GOTO 2120 

2040 RESTORE 2210:GOTO 2120 

2050 RESTORE 2230:GOTO 2120 

2060 RESTORE 2250:GOTO 2120 

2070 RESTORE 2270:GOTO 2120 

2080 RESTORE 2290:GOTO 2120 

2090 RESTORE 2310:GOTO 2120 

2100 RESTORE 2330:GOTO 2120 

2110 RESTORE 2350:GOTO 2120 

2120 COPY (70,34)-<104,98),1 TO (34, 

34),1 , 

2130 SET PAGE 0,1:READ D$:DRAV ”Clbra 

48,45”+D$:SETPAGE 0,0 

2140 COPY (30,34)-(66,98),1 TO (1,5) 

,0 

2150 READ HB: IF HB =0 THEN RETURN 
2160 VB=20:BV=JA 

2170 IF BV=JA THEN GOSUB400:GOTO2170 
2180 GOTO 2150 

2190 DATA "R4D10R3D1L7U1R3U9L3” 

2200 DATA 0 

2210 DATA ”BD2U2R7D6L6D4R6D1L7U6R6U4 
L5D1” 

2220 DATA 6,7,7,8,10,11,11,12,0 
2230 DATA ”BD2U2R7D3G2D1F2D3L7U2R1D1 
R5U2H2L2U1R2E2U2L5D1” 

2240 DATA 5,6,6,7,7,7,10,10,10,11,11 

, 12,0 

2250 DATA ”D6R5D5R1U5R1U1L1U3L1D3L4U 
5” 

2260 DATA 4,4,4,4,6,7,7,7,10,10,11,0 
2270 DATA ”R5D1L4D4R3F3G3L4U1R4E2H2L 
4U6” 

2280 DATA 4,4,4,4,5,5,6,7,7,7,7,8,10 
, 10 , 10 , 10 , 11,0 

2290 DATA ”BR5D1L3G1D3R3F3G3L1H3U6E2 
R3BL4BD6R3F2G2L1H2U2” 

2300 DATA 4,4,4,4,4,4,5,5,5, 6 , 6 ,7,7, 

7.7. 8 , 8 , 10, 11, 12, 12, 12, 12, 12,0 

2310 DATA ”D2U2R7D2G5D4L1U4E5U1L5D1" 
2320 DATA 4,4,4,5,5,6,6,7,7,7,8,10,1 
1 , 11 , 12 , 12 , 12 , 0 

2330 DATA ”BR2R2F3D1G2F2D1G2L2H3U1E2 
H2U1E2R2D1F2D1G1L1D1F2D1G1L2H2U1E2H2 
U1E1R2” 

2340 DATA 4,4,4,4,4,5, 6 , 6 ,7,7,7,7, 8 , 

8 . 8 . 8 . 8 . 8 , 10 , 11 , 12 , 12 , 12,0 

2350 DATA ”BR2R3F2D7G2L3U1R3E1U3L4H2 
U2E2D1R2F2D2L4H1U2E1” 

2360 DATA 4,4,4,4,5,6,6,7,7,8,10,11, 
11 ,11, 12 ,12, 12 , 12,0 


2370 *-AFGELOPEN UIT- 

V- 

2380 SET PAGE 0,0 
2390 FOR Q =1 TO 1000:NEXT 
2400 PRESET(90,70):COLOR 15,4 
2410 PRINT#1,”GAME OVER 
2420 PRESET(90,100) 

2430 PRINT#1,"NOG EENS...” 

2440 A$=INKEY$:IFA$=””THEN2440 

2450 IFA$=”N”ORA$=”n”THEN2460ELSEIFA 

$="j”ORA$=”j”THEN GOSUB 2770:GOTO 17 

60 ELSE GOTO 2440 

2460 COLOR=NEW:KEY ON:END 

2470 ’-SPELREGELS- 


2480 CLS:WIDTH40 
2490 PRINT”B E R L IJ N 1961 
(c)JAR 1987” 

2500 PRINT 
2510 PRINT 

2520 PRINT”In 1961 werd door BERLIJN 
een muur ge- bouwd: het Ijzeren Go 
rdijn werd gesloten” 

2530 PRINT”Op het laatste moment pro 
beerden nog velen de andere kant 
te bereiken. 

2540 PRINT:PR INT”Loods negen mensen 
over de Muur die wordt gebouwd. 

Maar pas op voor de vallende 

beton-blokken! ” 

2550 PRINT:PRINT”Je mannen kunnen ma 
ar één blok naar boven klimmen e 

n ze kunnen er ook niet tegen als z 
e te ver naar beneden vallen. 

2560 PRINT”Einddoel is: boven op de 
gele muur in een luchtballon stapp 
en: één voor één! 

2570 PRINT: PRINT”Beweeg het poppetje 
met toetsen.” 

2580 PRINT”<- -> of Joystick 1 

2590 RETURN 

2600 ’-ATTTENTIE KNIPPER- 

2610 FOR KQ=1 TO 5 
2620 COLOR=<11,0,4,0) 

2630 FOR T=1 TO 200:NEXT 
2640 COLOR=NEV 
2650 FOR T=1 TO 200:NEXT 
2660 NEXT:RETURN 

2670 ’-scherm- 

2680 SCREEN5: SET PAGE 0,1:COLOR 0,0 
,0:CLS 

2690 PI=2*ATN<1) 

2700 CIRCLE <180,30),10,11,1.2*PI, .8* 
PI, 1 

2710 CIRCLE(185,30), 9,11,1.2*PI,.8* 
PI, 1 

2720 SET PAGE 0,0 

2730 FOR X=10 TO 100 STEP 10 

2740 COPY (170,20)-(200,40),1 TO (X, 

100),0,TPSET:NEXT 

2750 GOTO 2750 

2760 '-init waardes- 

2770 JA=-1:NEE=0 
2780 AL=3:SC=-30:AF=NEE 
2790 GR=1500: LVL=0 
2800 DOOD=NEE: AS=0 
2810 RETURN 
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De programma’s uit de MSX-Gidsen zijn ook op 
diskette verkrijgbaar; zowel op 3.5 inch (voorde 
meeste MSX computers) als op 5.25 inch - dub¬ 
belzijdig - voor de Spectravideo 707 drive. Dis¬ 
kette nr. 1 bevat de belangrijkste programma’s 
van MSX-Gids 1 t/m 3. Een verzameldiskette 
dus. Diskette nr. 4 bevat alle programma's uit 
Gids nr. 4, diskette nr. 5 uit MSX-Gids nr. 5 enz. 
enz. De diskette van de extra editie heeft nr. XI. 

De diskettes starten automatisch op en zijn ge¬ 
heel menugestuurd met diverse keuzemogelijk¬ 
heden en schermen; alles in hi-res graphics. 
D.m.v. een letter-keuze-menu (gebruik de 
HOOFDIetters!) kunnen de programma’s gela¬ 
den of opgestart worden. Het menu bevat ook 
een overzichtsprogramma, dat geschikt is voor 
twee drives en verder zijn er nog enige informa¬ 
tie- en advertentiepagina’s op de diskette aan¬ 
wezig. 


CASSETTES 


Ook zijn er cassettes leverbaar met de program¬ 
ma’s uit de MSX-Gidsen. Op deze cassettes 
staan tevens de programma’s die alleen ge¬ 
schikt zijn voor diskdrive en deze programma’s 
moeten wel overgezet worden naar diskette en 
kunnen - uiteraard - zonder diskdrive niet ge¬ 
bruikt worden. De cassettes hebben - net als de 
diskettes - hetzelfde nummer als de MSX-Gids 
waarin de programma’s staan en zijn verkrijg¬ 
baar vanaf nummer 7. 

De cassettes kosten ƒ 15,- per stuk (België Bfr. 
280) en de diskettes kosten ƒ 25,- p.st. (België 
Bfr. 470). Deze prijs is inclusief verzendkosten. 
Diskettes en cassettes bestellen door overma¬ 
king op giro 909515 t.n.v. A. Debels te Lelystad. 
Voor België kan besteld worden op rekening nr. 
235-0430464-87 bij de Generale Bank te Has¬ 
selt t.n.v. J. Herps, Lelystad. 


VERGEET BIJ DE BESTELLING NIET HET 
CASSETTE- OF DISKETTENUMMER EN DE 
SOORT DISKETTE (3.5/5.25) TE VERMELDEN. 


Op de cassettes en diskettes staan niet de klei¬ 
ne programma’s die horen bij een artikel en het 
listingcontroleprogramma. 
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JUMPING JACK 


Dit behendigheidsspel behoeft geen uitleg. Wel be- 
angrijk is, dat het spel geschreven is voor gebruik 
met een jogstick. Wie met de toetsen wil spelen dient 
in de regels 480 t/oi 510 de STICK(l) en TRIGC1) op¬ 
drachten in STICK(O) en TRIG(O) te veranderen. 


Beeldscherm: WIDTH 36 


A ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ «p ^ ^ fp ^ ™ ^ ^ rp 

2 * ♦ * 

3 '* JUMPING JACK * 

4 ’ * * 

5 ’ * Door: Marti en' Bouw * 

6 •" * * 

7 ’ * < c ) 1987 MSX-Gids Amsterdam* 

8 " * * 

9 4% ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^0 

rp ^ lp 4p lp lp 

10 STOPON:ONSTOPGOSUB1520 

20 SCREEN1,2:COLOR 14,1,1:KEVOFF:WID 

TH30 

30 M=1000 

40 L0CATE8,9,0 SPRINT' 1 MARTI EN BOUW'sL 
DCATE10,12:PRINT"SOFTWARE":LOCATEB,1 
5:PRINT"JUMPING-JACK" 

50 RESTORE 750: L*1 

60 FOR I =8<HC000T 0?<HC 116: RE AD A*: POKEI 
, VAL < " 8<H"+A$) 

70 NEXT 

80 DÉFUSR1 =?<HC000: DEFUSR2=S<HC00E: DEF 
USR3=?<HC060: DEFUSR4=?<HC08E: DEFUSR5=8< 
HC0BB: DEFUSR6=&HC0E8 
90 “****** inlezen sprites ****** 

100 RESTORE 1210 

110 LET A$="":FORI=1T032:READA:LETA$ 
=A*+CHR*(A):NEXTI 

120 LET B$="":FORI=1T032:READA:LETB$ 
=B«+CHR$(A):NEXTI 

130 LET C$="":FDRI=1T032:READA:LETC* 
=C$+CHR$(A):NEXTI 

140 LET D$="":F0RI=1T032:READA:LETD* 
=D$+CHR$(A):NEXTI 

150 LET E*="”:F0RI=1T032:READA:LETE* 
=E*+CHR*(A):NEXTI 

160 SPRITE*(0)=A$:SPRITE*(1)=B*:SPRI 
TE*(2)=C*:SPRITE*(3)=D*:SPRITE*(4)=E 
* 

170 GOSUBl340 
180 RESTORE1460 

190 FORA=1016T01023:READB:VPOKE <A),B 
:NEXT 

200 RESTORE1470:FORQ=1760TO1767:READ 
D: VPOKE<Q>,D:NEXT 

210 RESTORÉ1470:FORQ=1752T01759:READ 

D:VPOKE(Q),D:NEXT 

220 FORPA=ITO1000:NEXT 

230 SC=0: L=1 :F=0:FL=0 

240 ON L GOSUB 800,900,990,1100 

250 "******* veld opbouw ******* 

260 JP=50:LOCATE 0,0:PRINT"SCORE ":: 
L0CATE5,0:PRINTUSING"#####" ; SC: LOCAT 
E22,0:PRINT"LEVEL :L0CATE28,0:PRIN 

TUSING"#";L:LOCATE11,01 PRINT"ENERGY" 
•, : LOCATE 17,0: PR INTUS ING"###" ; JP 
270 FORA=8200TOB203: VPOKE (A) , 8<H81: NE 
XT 

280 VPOKEB207, ?<H71 

290 F0RA=B198T0B199: VPOKE <A) , ?<HF 1 : NE 

r 

XT 



300 VPOKE (8216), ?<HA 1 

310 PIJTSPR ITE0, (90, 1 66) , 9,0 

320 PUTSPRITE1,(90,166),12,1 

330 PUTSPRITE2,(90,166),1,2 

340 PUTSPRITE3,(90,166),0,3 

350 F0RQ=1536TÓ1544: VPOKE (QV, 8<HFF: NE 

XT 

360 X=USR1(0) 

370 FOR O=1TO200:NEXT 

380 LOCATE 11,11:PRINT"READY " 

390 FORO=ITO1000:NEXT 

400 "***** spel routine ******* 

410 R=VPEEK (8<H 1B01 ) : Y=VPEEK (?<H 1B00) : 
X=USR2(0) 

420 Y=Y+1B:R=R+10IYB*INT(Y/B):XS=INT 
(R/8):S=INT(6144+XS+(YS*32)) 

430 IFVPEFK(S)=219THENX=USR3(0) : X=US 
R3(0):X=USR3(0):X=USR3(0):GOTO4B0 
440 IFVPFEK(S) =220THENX=USR4 (0):X=US 
R4(0):X=USR4(0):X=USR4(0):GOTO 4B0 
450 IF VPEEK (S) = 1 96ANDG=0THEN6OSUE< 1 27 
0:GOTO480 

460 IFVPEEK(S)=127THEN1290 

470 X =USR5(0):GOTÜ410 

480 IFBTICK(1)-0THENT-0 

490 IFSTICK(1)=3THENX»USR3(0):T=3 

500 IFBTICK(1)«7THENX-UBR4(0):T=7 

510 IFSTRIG(1)=—1THENGOTO530ELSE:GOT 

0410 

520 GOTO410 

530 JP=JP-lsIFJP<0THENGOTO580ELSEFOR 
A= 1TO15:LOCATE17,0:PRINTUSING"###";J 
P 

540 IFT=3THENX=USR6(0):BEEP:X=USRS<0 

):X=USR6(0):X=USR2(0):NEXT 

550 IFT=7THENX=USR6(0):BEEP:X=USR4(0 

):X=USR6(0):X=USR2(0):NEXT 

560 IFT—0rHENX=USR6(0):BEEP:X=USR6(0 

):X=USR2<0):NEXT 

570 GOTO410 

580 ’****** einde spel ******* 

590 LOCATE 10,10:PRINV'GAME OVER" 

600 FOR W=1 TO2000:NEXT 
610 FOR A=6200TO6432:VPOKE(A),0:NEXT 
620 FOR A=6530TO6B32:VPOKE(A),0:NEXT 
630 F0RA=6912T06924STEP4:VPOKÈ(A),16 
6:NEXT:F0RA=6913T06925STEP4:VPOKE(A) 
,100:NEXT:S*0 

640 LOCATE 10,10:PRINT"GAME OVER" 

650 LOCATE 6,Ï2:PRINT"WIL JE NOG EEN 
SPEL" 

660 LOCATE 12,14:PRINT"<J/N)" 

670 LETA**INKÉY* 

680 IF A*="J"ORA*="j"THEN230 

690 IF A$="N"ORA$="n"THENSCREEN0:END 

700 FORA=1TO50:NEXT 

710 S=S+1:IFS<50 THENX=USR3(0)ELSEX= 
USR4(0) 

720 IFS=100THENS=0 
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730 BOTO670 

740 ******** MTAAL ************ 

750 DATA 21,0,18,11,0,Dl,1,0,3,CD,59 
, 0, C9,0,0,21,61,01,1,1F,0,11,60,Dl,1 
A,ÈD,B0,32,7F,D1,11,1F,D2,21,1E,D2,1 
,21,0,3A,1F,D2,ED,BB,32,0,D2,11,A0,D 
2,21,Ai,D2,1,1F,0,1A,0,0,ED,B0,32,BF 
, D2, 1 1,5F, 1)3,21,5È,D3, 1,21,0,3A,5F,D 
3,ED,B8,32,40,D7 

760 DATA 21,9F,D1,11,9F,IS,1,0,2,CD, 
5C,0,FB,C9,0,0,21,1,1B,CD,4A,0,FÈ,E9 
, 0,30,20, 0,3C, 3C, 0,0,0,0,0,0,0, CD, 4D 
,0,21,5, 1B,CD,4D,0,21,9, 1B, CD, 4D, Cf, 2 
1,D,1B,CD,4D,0,C9,C9,C9,21,1,1B,CD,4 
A, 0, FE,8,0,38,20,0,3D,3D,0,0,0,0,0 
770 DATA 0,0,CD,4D,0,21,5,ÏB,CD,4D,0 
,21,9,1B,CD,4D,0,21,D,1 B,CD,4D,0,C9, 
C9, C9,21,0, 1B, CD, 4A, 0,0, 0,0,0, 0, 0,3C 
,3C,3C,3C,0,0,0,0,0,CD,4D,0,21,4,1B, 
CD,4D,0,21,8,lB,CD,4D,0,2i,C,1B,CD,4 
D, 0,C9,C9,C9,21,0,iB,CD,4A,0,0,0,0,0 
,0,0,3D,3D,0,0,0,0,0,0,0,CD,4D,0,21 
780 DATA 4,1B,CD,4D,0,21,8,ÏB,CD,4D, 
0,21,C,1B,CD,4D,0,C9,C9,C9 


790 

9 *** speel veld 

1 **** 



800 

FORA=6144T06911 

:VPOKE < A) 

,0:NEXT 

810 

FORA=68B0TO6911 

:VPOKE(A) 

, 127 

: NEX 

820 

T 

FORA=6720TO6729 

:VPOKE(A) 

,219 

: NEX 

830 

T 

F0RA=6563T06573 

:VPOKE(A) 

, 220 

• 

: NEX 

840 

FORA=6400TO6410 

:VPOKE < A) 

,219 

: NEX 

y 

850 

F0RA=6735T06745 

:VPOKE(A) 

,219 

: NEX 

860 

FORA=65B0TO6585 

:VPOKE(A) 

,220 

: NEX 

y 

870 

T 

F0RA=6418T06428 

:VPOKE(A) 

,219 

: NEX 

880 

FORA=6285TO6290 

lVPOKE<A) 

, 196 

: NEX 

T:RETURN 




890 

***** speelveld 

2 ***** 



900 

FOR A=6144706911:VPOKE(A),0: 

NEXT 

910 

FOR A=6880TO6911:VPOKE(A),12 

7: NE 

XT 





920 

F0RA=6742T06747 

:VPOKE(A) 

, 219 

r 

: NEX 

-y 

930 

FORA=6560TO6565 

:VPOKE(A) 

, 220 

: NE X 

940 

FORA=6730TO6735 

:VPOKE ( A) 

,219 

: NEX 

y 

950 

FORA=6575TO6580 

:VPOKE < A) 

,220 

: NEX 

y 

960 

F0RA=6426T06431 

:VPOKE ( A) 

,219 

: NEX 

-y 

970 

F0RA=6410TO6415 

: VPOKE < A ) 

,219 

: NEX 

-J* 

980 

FORA=62B5TO6290 

: VPOKE ( A ) 

, 196 

: NEX 

T:RETURN 




990 

***** speel veld 

3 ***** 



1000 FOR A=6144T06911 : VPOKE < A),0 

: NEX 


1010 FOR A-6880TO691 1 : VPOKE < A),127:N 
FXT 

1020 F0RA=6742T06745:VPOKE<A),219:NE 
XT 

1030 FORA=6730TD6733: VF'OKE (A) , 219: NE 
XT 

1040 FORA=6560TO6563:VPOKE(A),220:NE 
XT 

1050 F0RA=6572T06575:VPOKE(A),220:NE 
XT 

1060 F0RA=6581T065B4:VPOKE(A),220:NE 
XT 

1070 F0RA=6426T06429:VPOKE(A),219:NE 
XT 


1080 FORA=6405TO6408:VPOKE(A),219:NE 
XT 

1090 FORA=6285TO6290:VPOKE(A) ,196: NE 
XT:RETURN 

1100 •'**#* speel ve?l d 4 ####* 

1110 FOR A=6144T06911:VPOKE(A) ,0:NEX 
T 

1120 FOR A=6880TO6911:VPOKE<A),127:N 
EXT 

1130 F0RA=6742T06745:VPOKE(A),219:NE 
XT 

1140 FORA=6730TO6733:VPOKE(A),219: NE 
XT 

1150 FORA=6560TO6563:VPOKE <A),220:NE 
XT 

1160 F0RA=6572T06575:VPOKE(A),220:NE 
XT 

1170 F0RA=6426T06429:VPOKE(A) , 219: NE 
XT 

1180 FORA=6405TO6408:VPOKE <A),219:NE 
XT 

1190 FORA=62B5TO6290:VPOKE <A) , 196: NE 
XT:RETURN 


1200 ’*#*#** sprites ******* 

1210 DATA31,63,127,241,251,254,251,1 
24,62,31,0,0,0,0,0,0,248,252,254,143 
,223,127,223,62,124,248,0,0,0,0,0,0 
1220 DATA0, 0,0,0,0,0,0,0,0,224,134,2 
04,72, 14,6‘, 62, 0,0, 0,0,0,0,0,0, 0,7,97 
,51,18,112,96,124 

1230 DATA0 ,0,0,14,4,1,4,3,1,0,0,0,0, 
0,0,0,0,0,0,112,32,128,32,192,128,0, 

0 , 0 , 0 , 0 , 0,0 

1240 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0 

, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 12 , 12 , 12 , 12,1 

2 , 12,0 

1250 DATA31,63,127,241,251,254,251,1 
24,62,255,134,204,72,14,6,62,248,252 
,254,143,223,127,223,62,124,255,97,5 
1,18,112,96,124 

1260 •' ****a-f wer ki ng goud gepakt *** 

t % 

1270 PI..AY" 132o4t255v 1 0GG-G+AA-A+bb“b 
+ ": VPOKE (S<H1B0F) , 11: VPOKE (S) ,0:G=1:F 
ORQ=1TO10:NE X T:RETURN 
1280 RETURN:GOTO480 
1290 IFG< >0THEN 1300EL8E1320 


1300 GOSUB1530: VPOKE ($<H 1B0F) , 0: F-G+F 
:FL-G+FL:SC=F*100:L0CATE5,0:PRINTUSI 
NG'•#####"; BC:G=0 

1310 IFFL=6THENL=L+J : Fl,=0: GOTO240 
1320 IF JP=0THEN590ELSE480 
1325 ***** iniezen kar. set**** 

1330 GOTO430 

1340 PLAY”1 20o5bgbo6t:ego5bgbo6ceg05b 
gbo6reg", "1 20o4bgbo5t:ego4bgbD5ceg04b 
gboSceq " " 120o3bgbo5cego4bgbo5ceg04b 
gbo4ceg":RESTOREi480:FOR I=520TO728: 
READ A$: VPOKE I, VAL ( ”8<H"+A$) : NEXT: GO 
TO1350 

1350 RESTORE1510:FORI=384T0463:READA 


$: VPOKEI, VAL < "S<H"+AS) : NEXT: RETURN 
1360 DATA0,124,254,130,130,130,254,1 
24 

1370 DATA0,56,120,88,24,24,24,124 
1380 DATA0,124,254,2,124,128,254,254 
1390 DATA0,124,254,130,62,130,254,12 
4 

1400 DATA0,68,198,198,254,6,6,4 
1410 DATA0,254,254,128, 124,2,254,124 
1420 DATA0,124,254,128,252,130,254,1 
24 

1430 DATA0, 124,254,134,6,12,24,48 
1440 DATA0, 124,254,130,124,130,254,1 
24 

1450 DATA0, 124,254,130,126,2,126,252 
1460 DATA 221,221,0,119,119,0,238,23 
8 
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1470 DATA 74,154,165,100,138,166,91, 

101 . 

1480 DATA 30,48,C4,C4,FC,C4,C4,0,FB, 
64,64,78,64,64,F8,0,38,44,C0,C0,C0,4 
4, -'8, 0, F8, 64,64, 64,64,64, F 8, 0, FC, C0, 

C0,F0,C0,C0,FC,0,FC,C0,C0,F0,C0,C0,C 

0,0,78,C4,C0,DC,C4,C4,78,0,C4,C4,C4, 
FC,C4,C4,C4,0,78,30,30,30,30,30,78,0 
,IC,8,8,8,CB,CS,70,0,C4 
1490 DATA C8,D0,E0,F0,DB,CC,0,C0,C0, 
C0, C0, C0, C0, FC, 0, C4, FC., D4,C4,C4,C4,C 
4,0, C4, E4, E4, D4, CC, C4, C4,0, 78, C4, C4, 
C4, C4, C4,78,0, FB,C4,C4, F8, C0, C0, C0, 0 
,78,C4,C4,C4,D4,CB,74,0,F8,C4,C4,FB, 
D0,CB,C4,0,78,C4,C0,78,4,C4,78 
1500 DATA 0,FC,30,30,30,30,30,30,0,C 

4,C4,C4,C4,C4,C4,78,0,C4,C4,C4,C4,C4 

- 48,30,0,C4,C4,C4,D4,D4,ÉC,C4,0,C4,C 
4,78,30,78,C4,C4,0,C4,C4,C4,78,ï0,ï 0 
,10,0,FC,C,18,30,60,FC,FC,0,C1 
1510 DATA78,C4,C4,C4,C4,C4,78,0,30,7 
0,80,30,30,30,F8,0,78,CC,C,18,60,C0, 
FC,0,78,84,4,18,4,C4,78,0,18,38,58,9 
8, FC, 18, 18,0, FB, C0, F0, 8,4,8, F0,0, 38, 
60,C0,F8,C4,C4,78,0,FC,C4,8,10,30,30 
,30,0,78,C4,C4,78,C4,C4,78,0,78, C4, C 

4,70,4,8,30,0,0, . 

1520 SCRÈEN0: ÈND 

1530 PLAY"120o5bgbo6cego5bgbo6ceg05b 
gbo6ceg", ”1. 20o4bgbo5ce?cjo4bcjbo5ceg04b 
gboSceg","120D3bgbo5cego4bgbD5ceg04b 
gbo4ceg" 

1540 RETURN 


CONT RDLETEL L1N6 
Regel! 1 - 58 
Regel! 2-58 

Regel; 3-58 

Regel: 4 - 58 

Regel! 5-58 

Regel! 6 - 5B 
Regel! 7-58 

Regel: 8-58 

Regel: 9-58 

Regel: 10 - 20 

Regel: 20 - 190 
Regel: 30 - 67 
Regel: 40 - 192 
Regel: 50 - 49 
Regel: 60-187 

Regel: 70 - 131 
Regel: 80 - 86 
Regel: 90 - 58 
Regel! 100 - 120 
Regel: 110 - 233 
Regel! 120 - 236 
Regel: 130 - 239 
Regel: 140 - 242 
Regel: 150 - 245 
Regel*. 160 - 33 
Regel: 170 - 220 
Regels 180 - 83 
Regel: 190 - 128 
Regel: 200 - 17 
Regel: 210 - 1 

Regel: 220 - 177 
Regel: 230 - 105 
Regel: 240 - 101 
Regel: 250 - 5B 
Regel! 260 - 146 
Regels 270 - 30 
Regel: 280 - IB6 
Regel: 290 - 136 
Regels 300 - 68 
Regel: 310 - 213 
Regel: 320 - 216 
Regel: 330 - 209 
Regel: 340 - 210 
Regel: 350 - 125 
Regel: 360 - 152 
Regei: 370 - 95 
Regel: 380 - 252 
Regel: 390 - 111 
Regel: 400 - 58 
Regel: 410 - 181 


Regel: 420 - 211 
Regel: 430 - 65 
Regel: 440 - 102 
Regel: 450 - 230 
Regel: 460 - 58 
Regel: 470 - 8 

Regel: 480 - 189 
Regel: 490 - 151 
Regel: 500 - 160 
Regel: 510 - 79 
Regel: 520 - 50 
Regel: 530 - 116 
Regel: 540 - 142 
Regel: 550 - 147 
Regel: 560 - 183 
Regel: 570 - 50 
Regel: 580 - 58 
Regel: 590 - 219 
Regel: 600 - 131 
Regel: 610 - 24B 
Regel: 620 - 212 
Regel: 630 - 211 
Regel: 640 - 219 
Regel: 650 - B0 
Regel: 660 - 131 
Regel: 670 - 200 
Regel: 680 - 84 
Regel: 690 - 249 
Regel: 700 - 155 
Regel: 710 - 235 
Regel: 720 - 109 
Regel: 730 - 55 
Regel: 740 - 58 
Regel: 750 - 150 
Regel: 760 - 1 

Regel: 770 - 89 
Regel: 780 - 183 
Regel: 790 - 58 
Regel: 800 - 128 
Regel: 810 - 223 
Regel: 820 - 229 
Regel: 830 - 171 
Regel: 840 - 100 
Regel: 850 - 4 

Regel: B60 - 200 
Regel: 870 - 136 
Regel: 8B0 - 40 
Regel: 890 - 58 
Regels 900 - 160 
Regel: 910 - 255 
Regel: 920 - 13 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


930 - 160 
940 - 245 
950 - 190 
960 - 147 
970 - 115 
980 - 40 
990 - 58 
000 - 160 
010 - 255 
020 - 11 
030 - 243 
040 - 158 
050 - 182 
060 - 200 
070 - 145 
080 - 103 
090 - 40 
100 - 58 
110 - 160 
120 - 255 
130 - 11 
140 - 243 
150 - 158 
160 - 182 
170 - 145 
180 - 103 
190 - 40 
200 - 58 
210 - 19 
220 - 122 
230 - 42 
240 - 10 
250 - 124 
260 - 58 
270 - 219 
280 - 64 
290 - 216 
300 - 148 
310 - 20 
320 - 71 
325 - 58 
330 - 120 
340 - 137 
350 - 231 
360 - 8 
370 - 31 
380 - 180 
390 - 220 
400 - 213 
410 - 180 
420 - 20 


Regel: 1430 - 29 
Regel: 1440 - 11 
Regel: 1450 - 171 
Regel: 1460 - 210 
Regel: 1470 - 63 
Regel: 1480 - 119 
Regel: 1490 - 151 
Regel: 1500 - 1B 
Regel: 1510 - 114 
Regel: 1520 - 145 
Regel: 1530 - 43 
Regel: 1540 - 142 
Totaal: 20533 


WRITING RACE 


Bij dit programma, valt weing te vermelden; bijna 
iedereen zal het wei kennen, De woorden moeten in* 
getoetst worden voordat de tijd voorbij is. 


* i i * « Mn y < i m . 

lil 4 I M x | * | | [ 



w k .ï i ? i n r > k r* < i • « •> n ?; x f > i r> * • 


Beeldscherm: WIDTH 36 


10 ’############################# 
20 * t * 

30 WRITING RACE * 

40 •' * * 

50 ’* Door: Jeroen Kusters # 

60 * # A 

70 ’*<c>1987 MSX-Gids Amsterdam* 

80 * * * 


90 ****************************** 

100 •' 

110 ’ 

120 * 

130 CGLOR 15,1,1:SCREEN2 
140 OPEN”grp:"AS1 
150 QNSTOPGOSUB450:STOPON 
160 HS=10: Nli$-" Jeroen" 

170 DEFUSR1 =8<H41 

180 DEFUSR2=S<H44 

190 DEFU5R3=342 

200 A*=" KS-SOFTWARE " 

210 B$=" PRESENTS: 

220 C *="WRITING RACE” 

230 D$="Written by Jeroen Kusters" 
240 E*=”<c) MSX-Gids " 

250 U=USR1<0) 

260 PSET < 80,60),1:PRINT#1,A$ 

270 PSET<81,60),1:PRINT#1,A$ 

280 PSET<80,80),1 SPRINT#1,B$ 

290 PSET <81,80),1:PRINT#1 , B$ 

300 COLOR 6 

310 PSET(80,100),1:PRINT#1,C$ 

320 PSET<81,100),1:PRINT#1,C* 

330 COLOR 2 

340 PSET(30,10):PRINT#1,D$ 

350 PSET(31,10):PRINT#1,D$ 
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360 COLOR 15 

370 PSET<70,170),1:PRINT#1,E* 

380 PSET(71,170),1iPRINT#1,E$ 

390 U=USR2(0) 

400 FORT=1TO2000:NEXT 
410 GOTO 500 
420 ' 

430 ? OMSTOPGOSUB 
440 •' 

450 COLOR 15,4,4: SCREEN0 
460 KEYON:WIDTH37s LIST10-120 
470 ’ 

480 ’ MOEILIJKHEIDSGRAAD 
490 ’ 

500 GOTO 2340 
510 ’ 

520 * VORMING BEELD 
530 ’ 

540 U=USR1(0)sCLS:COLOR 1 

550 LINE(0,0)-(255,190),6,BF 

560 LINE(0,0)-(255,30),15,BF 

570 LINE(0,180)-(255,190),15,BF 

580 A$="WRITTING RACE (c) MSX-Gids 


590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 


5 PL 
730 
740 
C 

750 

C 

760 

5 lv 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 


MS$= 
MX*= 
SC$= 
HS*= 
L V$= 
SP*= 
PSET 
PSET 
PSET 
PSET 
PSET 
PSET 
PSET 


MISSES 
MAX <## 
SCORE 
H-SCORE 
LEVEL 
SPEED 

(5.181) 

( 6 . 181 ) 

(125.1) 

(126.1) 

(5.1) ,15 

(6.1) ,15 

<125,11) 

• 


## 


) 


II 


H 


II 


* 


II 


### 

### 

#" 

PRINT#1 
PRINT#1 

PRINT#1,U5INGMX*;MX 
PRINT#1,USIN6MX$;MX 
:PRINT#1,USINGMS*5 MS 
:PRI NT#1,USINGMS*;MS 
,15:PRINT #1,USINGSP$ 


, A$ 
, A* 


PSET(126,11) 


:PRINT#!,USINGSP* 


COLOR 6 

PSET(5,21),15:PRINT#1,USINGSC$;S 

PSET(6,21),15:PRINT #1,USINGSC$;S 

PSET(125,21),15:PRINT#1,USINGLV$ 

PSET (126, 21) : PR I NT# 1 , US INGLV* •, LV 
COLOR 1 

PSET(5,11):PRINT #1,USINGHS$;HS 

PSET(6,11):PRINT#1,USINGHS$;HS 

* 

’ WACHT OP START 
COLOR 15 

A*="PRESS CRETURN3 TO START" 

PSET(5,100):PRINT#1,A* 

PSET(6,100)ïPRINT#l,A* 

U=USR2(0)ï U=USR3(0) 

A*=INKEY*:IFA$<>CHR$(13)THEN890 
LINE(0,100)-(255,110),6,BF 
COLOR Is GOTO 1250 


920 ’ 

930 11 WOORDEN 
940 p 

950 DATA KANDIDAAT,SPLITSING,SCHUIME 
N,ROLLUIK,UITLEGGEN,VERPLICHt,BREUK, 
GEDRAGEN,ANTWOORD,GEBEENTE 
960 DATA DRAGER,ZWAVEL,WONDZALF,ZANG 
ER,VIJZELEN,PRONKEN,LUIDEN,XYLOFOON, 
ZEEVAART,KOOKBOEK 

970 DATA LICHAAM,MATROOS,AANNEMER,RO 
TTING,VASTHOUDEN,ACHTERNAAM,KNOTTÈN, 
DOODSHOOFD,BINNENVAART,NEGER 
980 DATA OPWERPEN,SUIKER,KANTOOR,YOG 
HURT,VRUCHT,UITDOVEN,TREKKER,RIV ï ER, 
PRENTJE,MOTÓRPECH 

r 


990 DATA LUSTRUM,KOSTELOOS,HUI VEREN, 
GROND,FLUWEEL,EINDIGEN,DRUK,CAMPAGNE 
,BONKEN,ANONIEM 

1000 DATA TAALKUNDE,ONVERVALST,ZEGEN 

,MENSAAP,TOERNOOI,WÈRKTUIG,SEIZOEN, K 

ï STEN,HANSWORST,GENEZEN 

1010 DATA POSITIEF,OVERGANG,METEOR,H 

INDERLIJK,WELDOENER,AFPAKKEN,BURGER, 

CONTRACT,DWERG,ENERGIE 

1020 DATA FILTER,GEBOORTE,HEILIG,INH 

OUD,J ACHTHOND,KLANK,LEPEL,MENIG,NIEM 

AND,ONTSLAG 

1030 DATA POEDER,QUADRAAT,ROESTEN,SO 
RBET,TAXEREN,UITSPRAAK,VAÖERLIJK, WEN 
DBAAR,ZILVER,PINGUIN 

1040 DATA AFtELLEN,BALSEM,CHLOOR,DEG 
EL IJK,EINDELOOS,FOTOCOPIE,GLIMP,HEKE 
L,IRONIE,JUFFROÜW 

1050 DATA KEGEL,LADING,MIJNSCHACHT,N 
OODADRES,OPWELLÈN,PEPERBUS,RECTOR,SC 
HURK,TIKFOUT,UITKOMST 

1060 DATA VAARWEL,WAARDIG,ZWEETBAND, 
TREKKRACHT,BEERTJE,VEREN,KIPREVEL,NÓ 
RMAAL,OPNAME,NEDERLAND 
1070 DATA ATLAS,AVANCEREN,AUTOWEG,BR 
OEDEN,BANKETSTAAF,BELAST ING,BOTERHAM 
,CONSÜMPTIE,CURSIÉF,CULTUUR 
1080 DATA DRAAISCHIJF,DRUIVEN,DROOGB 
LOEM,EMBLEEM,ESCORTE,EXPORT,FLUI STER 
AAR,CASSETTE,FINALE,FUNCTIE,GAMMEL 
1090 DATA GESCHIEDENIS,GLIMWORM,GRAT 
IE,HART IG,HEVEL,HOUTKEVER,INKTVLEK, I 
NTÈLLECTUÈEL,INZEPEN,JUSTITIE 
1100 DATA JOÜRNAAL,KAALKOP,KERVEN,KE 
TT INKJE,KORNUITEN,LANDVOOGD,LEKKEN, L 
EVENSGEVAAR,LUSTELOOS, MAAGDÉL IJK 
1110 DATA MACHT,MEDEGEVOEL,MIRAKEL,M 
OSSELVROUW,NEUSAAP,NOTERING,NUMMER,O 
EFENING,ONBEVREDIGD,OORKONDE 
1120 DAtA PISTACHE,PRAATSTOEL,PUBLIE 
K,RIOOLWATER,RITSEN,ROZ EBOTTEL,SCHED 
EL,SLUITZEGEL,STADHOUDER,TENNISBAAN 
1130 DATA TOELACHEN,TOVERFEE,TRAININ 
G, UITDAGEN, UURWERK, LI IT Z END I NG, VANNAC 
Ht,VASELINÉ,VERDUREN,VUILNIS 
1140 DATA WAAKHOND,WANDELSTOK,WESTEN 
,WILDEMAN,XYLOGRAFIE,YANKEE,ZAADVLIE 
S,ZEDENWET,ZIGEUNER,ZONDAAR 
1150 DATA DRUKBEL,AANBLIK,AFDRAAIEN, 
AVERIJ,BESCHRIJ VING,BIJ VOEGEN,CONFRÓ 
NTEREN,CYCLUS,DEBITEUR,DEINZEN 
1160 DATA DEMONTAGE,ELÈKTROLOOG,FILM 
KEURING,ERWTENSOEP,FIGURANT,FRONTAAL 
,GANGBAAR,GELDEN,GERECHT,GROOTVADER 
'l 170 DATA KAMPEREN, KLAROEN, KOGELGAT, 
LAST IG,LEKBIER,LEGERBENDE,MAZ ELEN,MI 
ERENETÈR,MOEDELOOS,NODIG 
1180 DATA NOTEREN,OMKLEDEN,ONBESMET, 
DPLICHTEN,POL ITIE,PLOMP,POEL I ER,PRIV 
AAT,RADIOLOOG,RIJ KSAMBT 
1190 DATA SCHAMPER,SLAGROEIER,SPELLE 
TJE,TECHNISCH,TRADITIE,UITSLAG,UITLI 
KKEN,VACUUM,VAMPIER,VERHEVEN 
1200 DATA VERLANGEN,WAGON,WERELD,WIJ 
NAPPEL,WILDERNIS,WIMPER,WOLVIN,ZÈEME 
ERMIN,ZEVENKLAPPER,ZONDAG 
1210 DATA LIEFDE,BRIEVEN,ZOENEN,STRE 
LEN,ZOETHEID,KRIÈBELS,PASFOTO,HUILEN 
,LACHEN,SACHA,JEROEN 
1220 ' 

1230 " KEUZE WOORD+MOEILIJKHEID 
1240 11 

1250 FORLX=20TO160STEP20!LV=LX/20 
1260 LINE<124,20)-<255,30),15,BF 
1270 COLOR 6 

1280 PSET(125,21),15:PRINT#1,USINGLV 
S;LV 

r 


18 










1290 PSET (126, 21) : PRINT# 1, USINGL V$; L 

V 

1300 FORWD=1TO10 
1310 RESTORE 

1320 H=INT(RND(-TIME)*273) 

1330 IFH< =0ORH=>272THEN1320 
1340 FORGK=1TOH:READA$:NE XTGK 
:750 IFLX=140ANDLEN(A$)>10THEN1310 
1360 IFLX=160ANDLEN(A$)>8THEN1310 
1370 •’ 

1380 ' HOOFDLÜS 
1390 •" 

1400 A=LEN(A*):F=A:R=1:COLOR 1 
1410 FORX=240TÜ(240-(9*(A-l)))STEP-9 
1420 PSET(X,90):PRINT#1,MID$ < A$,F,1) 
1430 PSET<X +1,90):PRI NT#1,MID$(A$,F, 

1 ) 

1440 F=F-1:NEXTX:SX=LX:PDKE646B3! ,25 

1450 SX=SX+PL:IFSXOX+9THEN1680 
1460 LINE(SX-PL,31)-(SX-PL,179),6 
1470 LINE(SX,31)-(SX,179),4 
1480 B$=INKEY$:IFB$<>""THÈN1500 
1490 GOTD 1450 
1500 BEEP 

1510 IFB$=CHR$(27)THEN500 

1520 IFB$=LEFT$(A$,1)THENA$=RIGHT$(A 
* ö— i i fi qp i 

1530 LINE(X+8,89)—(X+17,101),6,BF 
1540 IFA$=""THEN1590 
1550 A=A-1sX=X+9:GOTO 1450 
1560 ’ 

1570 ' GEHAALD ! ! 

1580 * 

1590 SC=SC+1:PLAY"L806C":COLOR 6 
1600 LINE(0,31)-(255,179),6,BF 
1610 LINE(4,20)-(123,29),15,BF 
1620 PSET(5,21),15:PRINT#1,ÜSINGSC$; 
SC 

1630 PSET (6,21) , 15: PRINT# 1, (JSINGSC$; 
SC 

1640 NEXTWD:GOSUB2960:NEXTLX:GOTO 18 
70 

1650 * 

1660 ’ GEMIST !! 

1670 ' 

1680 MS=MS+1s PLAY"L802C" 

1690 LINE(0,31)-(255,179),6,BF 
1700 LINE(4,0)-(123,9),15,BF 
1710 PSET(5,1),15:PRINT#1,USINGMS$;M 
S 

1720 PSET(6,1),15:PRINT#1,USINGMS$;M 
S 

1730 IFMS>MXTHEN1870 
1740 GOTO 1310 
1750 •' 

1760 * TIME IS OVER 
1770 •' 

1780 COLOR 1:T$=”TIME IS OVER” 

1790 F'SET <50,80) : PRINT#1, T$ 

1800 PSET(51,80)sPRINT#l,T* 

1810 FORT=1TÓ100 
1820 PLAY"L6402C":BEEP 
1830 NEXTT:RETURN 
1840 •" 

1850 ' AFSLUITING 
1860 * 

1870 GOSLIB1780ï COLOR 15,1,1:0H=HS 
1880 CLS:U=USR1(0) 


1890 

A*= 

II 

MISSERS 

##" 

1900 

B$= 

II 

LEVEL 

#" 

1910 

CS= 

II 

SCORE 

###" 

1920 

D$= 

"OLD 

H-SCORE 

###" 

1930 

E$= 

"NEW 

H-SCORE 

###" 

1940 

FS= 

1) 

SPEED 

#" 

1950 

G$= 

"FINAL SCORE 

###" 


1960 PSET(10,10),1:PRINT#1,USINGF$;P 
L 


1970 PSET(11,10),1:PRI NT#1,USINGF$;P 
L ‘ 

1980 PSET(10,20),1:PRINT#1,USINGA$;M 
S 

1990 PSET(11,20),1:PRINT#1,USINGA$;M 
S 

2000 PSET(10,30),1:PRI NT#1,USINGB$;L 

V 

2010 PSET<11,30),1:PRINT#1,USINGB$;L 

V 

2020 PSET(10,40),1:PRINT#1,USINGC$;S 
C 

2030 PSET(11,40),1:PRINT#1,USINGC$;S 
C 

2040 IFMX=0THENMX— 1 
2050 FS=SC-((MS/MX)*10) 

2060 IFFS< 0THENFS=0 

2070 PSET(10,60):PRINT#1,USINGG$;FS 

2080 PSET(11,60):PRINT#1,USINGG$;FS 

2090 IFFS>=HSTHENHS=FS 

2100 PSET<10,90),1s PRINT#1,USINGD$;O 

H 

2110 PSET(11,90) :PRINT#1,USINGD$;O 

H 

2120 PSET<10,100) :PRINT#1,USINGE$; 

HS 

2130 PSET(11,100) :PRINT#1,USINGE$; 

HS 

2140 U=USR2 < 0) 

2150 IFFS=HSTHENGOSUB2200 

2160 FORT =1TO3000 

2170 IFINKEY$=CHR$(27)THEN2190 

2180 NEXTT 

2190 GOTO 500 

2200 FORT =1TO20 

2210 C=INT(RND(-TIME)*15) 

2220 IFC<2THEN2210 
2230 COLOR C 

2240 P=INT(RND(-TIME)*90) 

2250 IFP=0THEN2240 
2260 PLAY”L64N=P;" 

2270 PSET(10,100):PRINT#1,USINGE$;HS 
2280 PSET(11,100):PRINT#1,USINGE$;HS 
2290 IFINKEY$=CHR*(27)THEN2190 
2300 NEXTT 
2310 * 

2320 * MOEILIJKHEIDSGRAAD 
2330 ’ 

2340 U=USR1(0):CLSïCOLOR 15,1,1 
2350 A«="MAKE A CHOICE :" 

2360 B$=" #) SPEED ENERGY LINE : #" 
2370 C$="BREAK THE GAME*, PRESS CESCJ 
2380 PSET(10,10):PRINT#1,A$ 

2390 PSET(11,10):PRINT#1,A$ 

2400 PSET(10,120),1:PRINT#1,C$ 

2410 PSET(11,120):PRINT#1,C* 

2420 FORY=40TO85STEP15 

2430 L=(Y/15)—1 

2440 M=(Y/15)-2 

2450 PSET(10,Y),1 

2460 PRINT#1,USÏNGB$;M;L 

2470 PSET <11,Y),1 

2480 PRINT#1,USINGB$;M;L 

2490 NEXTY:U=USR2(0) 

2500 COLOR 6:U=USR3(0) 

2510 * 

2520 ? LICHTKRANT+INPUT 
2530 ' 

2540 T$=" WRITING RACE 

2550 GOSUB2730 

2560 T$="A GAME FOR SPEEDY PLAYERS" 
2570 GOSUB2730 

2580 T«="WRITING RACE;DUTCH VERSION" 
2590 GOSUB2730 

2600 T*="WRITTEN BY JEROEN KUSTERS" 
2610 GOSUB2730 

2620 T*=" (c)1987 MSX-Gids 

2630 GOSUB2730 
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2640 T*=" TRY NE, PLEASE ... 

2650 GOSUB2730 

2660 T*=" HIT A KEY (1/2/3/4) 

2670 GOSUB2730 

2680 T*=" GOOD LUCK, MY FRIEND !! " 

2690 GDSUB2730 

2700 T*=" CESCI : SEE YOÜR SCORES " 

2710 GOSUB2730 

2720 GOTO2540 

2730 A=LEN<T$):F=1 

2740 FORX=10TO9*A+1STEP9 

2750 C*=HID$<T$,F,1) 

2760 PSET(X,170),ï:PRINT#1,C$ 

2770 PSET(X +1,170),1:PRINT#1,C* 

2780 F=F+1:NEXTX 
2790 FGRT=1TO300 

2800 A*=INKE Y$:IFA$< >""THEN2840 
2810 NEXTT 

2820 LINE(0,170)-<255,190),1,BF 
2830 RETURN 

2840 IFA$=CHR$(27)THENCOLÜR 15,l,lsG 
OTO 1880 

2850 IFA$<”1"ORA$ >"4"THENNEXTT 

2860 SC=0 : NS=0 :LV=0:OH=HS 

2870 PL=VAL<A$)+1 

2880 IFPL=2THENMX=10 

2890 IFPL=3THENMX=15 

2900 IFPL=4THENMX=20 

2910 IFPL=5THENMX=25 

2920 GOTO 540 

2930 * 

2940 * BONUS 'VOOR HOGER LEVEL 
2950 * 

2960 FORE=lT03:BEEP 

2970 SC=SC+1:BEEP 

2980 LINE <90,20) — (123,29),15,BF 

2990 PSET < 5,21):PRINT#1, US INGSC$;SC 

3000 PSET < 6,21):PRINT#1,USINGSC$;SC 

3010 BEEP:BEEP:NEXTE 

3020 RETURN 


CONTROLETELLIN6 
Regel: 10 - 58 
Regel: 20 - 58 
Regel: 30-58 

Regel: 40 - 58 
Regel: 50 - 58 
Regel: 60 - 58 
Regels 70 - 58 
Regel: 80 - 58 
Regel: 90 - 58 
Regel: 100 - 5B 
Regel: 110 - 58 
Regel: 120 - 58 
Regel: 130 - 137 
Regel: 140 - 60 
Regel: 150 - 226 
Regel: 160 - 50 
Regel: 170 - 194 
Regel: 180 - 198 
Regel: 190 - 234 
Regel: 200 - 14 
Regel: 210 - 199 
Regel: 220 - 25 
Regel: 230 - 23 
Regel: 240 - 60 
Regel: 250 - 149 
Regel: 260 - 184 
Regel: 270 - 185 
Regel: 280 - 205 
Regel: 290 - 206 
Regel: 300 - 244 
Regel: 310 - 226 
Regel: 320 - 227 
Regel: 330 - 240 
Regel: 340 - 25 
Regel: 350 - 26 
Regel: 360 - 251 
Regel: 370 - 32 
Regel: 3B0 - 33 
Regel: 390 - 150 
Regel: 400 - 96 
Regel: 410 - 172 



420 - 58 
430 - 58 
440 - 58 
450 - 141 
460 - 204 
470 - 58 
480 - 58 
490 - 58 
500 - 228 
510 - 58 
520 - 58 
530 - 58 
540 - 151 
550 - 143 
560 - 246 
570 - 72 
580 - 43 
590 - 235 
600 - 153 
610 - 172 
620 - 230 
630 - 14 
640 - 8 
650 - 170 
660 - 171 
670 - 150 
680 - 151 
690 - 96 
700 - 97 
710 - 221 
720 - 244 

760 - 236 
770 - 163 
780 - 239 

790 - 20 
800 - 21 
810 - 58 
B20 - 58 
830 - 58 


Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


840 - 251 
850 - 78 
860 - 89 
870 - 90 
880 - 103 
890 - 175 
900 - 161 
910 - 198 
920 - 58 
930 - 58 
940 - 58 
950 - 164 
960 - 100 
970 - 60 
980 - 191 
990 - 156 
000 - 252 
010 - 31 
020 - 192 
030 - 210 
040 - 159 
050 - 35 
060 - 16 
070 - 174 
080 - 119 
090 - 118 
100 - 48 
110 - 17 
120 - 73 
130 - 69 
140 - 216 
150 - 69 
160 - 236 
170 - 128 
180 - 169 
190 - 24 
200 - 106 
210 - 88 
220 - 58 
230 - 58 
240 - 58 
250 - 69 


Rege 

Regel 

Rege 

Rege! 

Rege 

Rege: 

Regel 

Regel 

Rege 

Regei 

Rege 

Regel 

Regel 

Regel 

Regel 

Regei 

Regei 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 • 
2000 
2010 • 
2020 
2030 
2040 
2050 
2060 • 
2070 • 
2080 • 
2090 • 
2100 • 
2110 • 
2120 ■ 
2130 • 
2140 • 


- 130 

- 244 

- 236 

- 163 

- 16 

- 140 

- 194 

- 33 

- 171 

- 8 
- 28 

- 58 

- 58 

- 58 

- 221 

- 191 

- 20 

- 23 

- 118 
- 0 

- 64 

- 34 

- B7 

- 102 

- 192 

- 205 

- 194 

- 57 

- 71 

- 249 

- 58 

- 58 

- 58 

- 215 

- 161 

- 135 

- 94 

- 95 

- 53 

- 58 

- 58 

- 58 

- 185 

- 161 

- 99 

- 96 

- 97 

- 251 

- 218 

- 58 

- 58 

- 58 

- 27 

- 131 

- 132 

- 35 

- 121 

- 159 

- 58 

- 58 

- 58 

- 161 
- 110 

■ 30 

- 174 

- 185 
• 110 

- 122 

- 171 

■ 135 

- 0 
- 1 

- 9 

■ 10 
• 22 

■ 23 

- 21 
- 22 

■ 176 

- 247 

- 152 

• 242 

■ 243 

• 153 

• 73 

• 76 

• 90 

• 91 

■ 150 


Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel; 
Regel: 
Regel: 
Regels 
Regel: 
Regels 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel; 
Regel: 
Reqel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Totaal: 


2150 - 195 
2160 - 143 
2170 - 244 
2180 - 215 
2190 - 172 
2200 - 211 
2210 - 173 
2220 - 99 
2230 - 32 
2240 - 5 

2250 - 139 
2260 - 209 
2270 - 26 
2280 - 27 
2290 - 244 
2300 - 215 
2310 - 58 
2320 - 58 
2330 - 58 
2340 - 31 
2350 - 60 
2360 - 101 
2370 - 179 
2380 - 2 

2390 - 3 

2400 - 176 
2410 - 115 
2420 - 56 
2430 - 251 
2440 - 253 
2450 - 239 
2460 - 75 
2470 - 240 
2480 - 75 
2490 - 172 
2500 - 197 
2510 - 58 
2520 - 58 
2530 - 58 
2540 - 170 
2550 - 79 
2560 - 87 
2570 - 79 
2580 - 3 

2590 - 79 
2600 - 199 
2610 - 79 
2620 - 36 
2630 - 79 
2640 - 236 
2650 - 79 
2660 - 130 
2670 - 79 
2680 - 143 
2690 - 79 
2700 - 51 
2710 - 79 
2720 - 140 
2730 - 11 
2740 - 2 

2750 - 81 
2760 - 33 
2770 - 36 
2780 - 147 
2790 - 249 
2800 - 151 
2810 - 215 
2B20 - 50 
2830 - 142 
2840 - 144 
2850 - 200 
2860 - 167 
2870 - 215 
2880 - 176 
2890 - 182 
2900 - 188 
2910 - 194 
2920 - 213 
2930 - 58 
2940 - 58 
2950 - 58 
2960 - 175 
2970 - 24 
2980 - 219 
2990 - 20 
3000 - 21 
3010 - 188 
3020 - 142 
34809 
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BESTAND 


Een eenvoudige database die werkt met zowel casset¬ 
te als diskette op M5K-1 en MSK-2. Het programma, 
zoals hier geplaatst, is voor de MSH-2 met diskdrive. 
In de REM- regels 120 t/m 230 is aangegeven welke 
regels moeten worden veranderd voor gebruik op een 
M5H-1 machine en bij gebruik van cassette. 


Er zijn al enkele regels benoemd voor een adressen¬ 
bestand maar uiteraard kunnen deze regels worden 
veranderd voor andere toepassingen. Er is geen 
handleiding, maar wel een uitgebreid hulpmenu, waar¬ 
in alle gegevens te vinden zijn. Deze regels zijn in 
de listing te vinden vanaf nummer 2280. De listing 
zelf kan dus, vooral in het begin, bij het werken met 
dit programma als handleiding worden gebruikt. Na e- 
nige oefening zal dat echter niet meer nodig zijn. 


ALLEEN VOOR 64 K MACHINES 
Beeldscherm: WIDTH 36 


10 

20 

30 

40 

50 

60 

70 

30 

90 

100 

110 

120 

130 

140 

150 

160 
j. 70 

180 

190 

200 

210 


******************** * ******* * 

* MSX-2 BESTAND * 

* * 

* Door: Jeroen Kusters * 

* * 
*(c)1987 MSX-Gids Amsterdam* 

* * 
************************ * * * ** 


’ GEEN DISK-DRIVE : 

VERANDER : 3260 open"CAS:bs.. 

' 3370 open"CAS:bs. . 


• GEEN MSX2 : 


VERANDER : 690..IFAS = ””THEN690 


230 ' EN HAAL 670 EN 680 WEG ! ! ! 
240 ’ 

250 ’ 

260 ’ 

270 COLOR 15,6,6:SCREEN®,,0,1,1 
280 KEYOFF:WIDTH40:DEFUSR1=342 
290 KEY10,"run "+CHRSC13) 

300 1 

310 ’ AANKONDIGING 
320 ’ 

330 CLS:BEEF:GOSUB3770 


340 AS="MSX2 BESTAND" 

350 BS="Written by Jeroen Kusters" 
360 C$="<c> 1987 MSX-Gids” 


370 D$ = ” Amsterdam" 

380 LOCATE12, 4:PRINTA$ 

390 LOCATE 6, 6:PRINTB$ 

400 LOCATE10,12:PRINTCS ' 

410 LOCATE 9,14:PRINTDS 
420 BEEP:FORT=1TO1500:NEXTT 
430 ’ 

440 ’ GEHEUGENRUIMTE RESERVEREN 
450 ’ 

460 CLEAR10000: NR=1:DIMPRS<10) 
470 DlMIPS <50, 10) , FTS<5),GGS(10) 





480 GGS<1)=”NAAM”:GGS<2>= 
< 3) =” POSTCODE” : GGS (.4 > =" F 
)=”TELEFOONNUMMER" 


"ADRES”:GGS 
AATS”:GGS <5 


490 ONSTOPGOSUB760:STOPON 
500 ’ 

510 ’ MENU 
520 ’ 


530 

540 


CLS:WIDTH27 
PRINT"- 


LOOATE0,1,0 


550 PRINT 
560 PRINT"<1) 
570 PRINT”<2> 
580 PRINT"<3> 
590 PRINT”<4) 
600 PRINT" <.5) 
610 PRINT"(6) 
620 PRINT"<7) 
" : PP INT 
630 PRINT"<8> 
R1NT 

640 PRINT"<9) 
650 PRINT”(0) 
660 U=UoRl<0) 


INGEVEN”:FR INT 
OPZOEKEN”:PRINT 
NAAR PRINTER":PRINT 
LAAD VAN DISK”:PRINT ' 
SAVE NAAR DISK":PRINT 
SORTEREN": PRINT 
PROGRAMMEREN F-TOETSEN 

PROGRAMMEREN INGAVE":P 


RESET":PRINT 
HELP" 


670 GETTIMEIS:GETDATEJS:LQCATE0,0 
680 PR I NT IS:LOCATE17,0:PR1NTJ$ 

690 AS=INKEYS:IFAS=""THEN670 


700 IFA$<”0”ORAS>"9’’THEN690ELSEA=VAL 


CAS):VIDTH40:U=USR1<0>:BEEP 
710 IFA=0THEN2300 

720 ONAGOTO1070,1590,2710,3250,3360, 
3470,820,2040,980 
730 ’ 


740 ’ ONSTOP 


750 ’ 

760 COLOR 15,4,4:W1DTH37:KEYON 
770 DEFUSR=&H3E:U-USR f0> 

780 SCREEN0,,1,1,1:LIST10-90 
790 ’ 

800 ’ PROGRAMEREN F-TOETSEN 
810 ’ 


820 CLS:PRINT”TYPE TEKST + [RETURN]" 
830 LOCATE,3 

840 PRINT”!Fl] :”:LOCATE7,3:PRINTFTS 

(1) : PRINT 

850 PR I NT” [ F2] :":LOCATE7,5:PR INTFTS 

(2) :PRINT 

860 PRINT"[F3] :":LOCATE7,7:PRINTFTS 


<3):PRINT 

870 PRI NT”IF4] :”:LOCATE7,9:PR INTFTS 


(4):PRINT 


880 PRINT"[ F53 :”:L0CATE7,11:PRINTFT 

S <5):PRINT 

890 F0RT=1T05:FTS <T)=”":NEXT 
900 F0RY=3T011STEP2 











































































































910 L0CATE7,Y:LINE 1NPUTFTS<(Y-1)/2) 
920 IFLENCFTS((Y-1)/2))>15THENFTS(<Y 
-1) /2> = LEFT$ CFTS ( < Y-D/2) , 15) 

930 ZV=<Y-l)/2:KEYZV,FTS<ZV):NEXT 
940 GOTO 530 
950 * 

960 * RESET 
970 ’ 

980 CLS:LOCATE11,10 

990 PR INT”RESET <J/N) ???" 

1000 AS=INKEYS:IFAS="”THEN1000 
1010 I FA$= ' ORAS”"j”THENRUN 
1020 IFAS=”N"ORAS=”n”THEN530 
1030 GOTO 1000 
1040 ’ 

1050 ’ INGEVEN 
1060 ’ 

1070 CLS:ST=1 

1080 ’ -OP BOUW BEELD 

1090 IFNR>50THENNR=50 
1100 IFNR<1THENNR=1 
1110 FORY=2TO20STEP2:GZ=Y/2 
1120 LOC ATE0, Y:PRINT” 

ft 

1130 LOCATE 3,Y:PRI NTIPS < NR,GZ > 

1140 LOCATE22, Y: PRINT"O” 

1150 L0CATE26,Y: PRINTGG$(GZ) 

1160 NEXT 

1170 LOCATE0,0:PR INTUSING”NUMMER : # 

#” ; NR 

1180 ’ - - INPUT 

1190 A$=” -> 

1200 BS=" ” : Y=2: 

A=Y 

1210 LOCATE0, A: PRINTBS 

1220 LOCATE3,A:PRINTIPS(NR, GZ) 

1230 IFY>20THENY=20 
1240 IFY<2THENY=2 

1250 LOCATE0,Y:PR INTAS:GZ=Y/2:A=Y 
1260 L0CATE3, Y: PRINTIPS(NR,GZ) 

1270 C$=INKEYS:IFC$="”THEN1270 

1280 ’ -CONTROLE 

1290 BEEP 

1300 IFC$=CHRS(13)THENY=Y+2:GOTO1210 
1310 IFC$=CHR$(30)THENY=Y-2:GOTO1210 
1320 IFCS=CHRS(31)THENY=Y+2: GOTO1210 
1330 IFCS=CHRS <28)THENNR=NR+ST:GOTO 
1090 

1340 IFCS=CHRS(29>THENNR=NR-ST:GOTO 
1090 

1350 IFCS=CHRS<24)THENIFST=1THENST=5 
ELSEST=1 

1360 IFCS=CHRS<9)THENIFNR<=25THENNR= 
50:GOTO 1090ELSENR=1:GOTO 1090 
1370 IFC$=CHRS <27)THEN530 


1380 IFCS=CHRS<127)THEN1460 

1390 IFCS=CHR$ <11)THEN1490 

1400 IFCS=CHR$ <8)THEN1510 

1410 IFCS=CHR$ <12)THEN1270 

1420 IPS(NR, GZ) = I PS (NR,GZ)+CS 

1430 IFLEN<IPS <NR,GZ))>18THENIPS <NR, 

GZ)=LEFTS(IPS(NR,GZ),18) 

1440 GOTO 1260 

1450 ’-RESET BLOK 

1460 FORT=1TO10:IPS(NR,T)=”” 

1470 NEXT:GOTO 1090 

1480 ’- RESET GEGEVEN 

1490 IPS(NR,GZ>=””:GOTO 1210 

1500 ’-RESET 1 LETTER 

1510 H=LEN(IPS(NR,GZ)) 

520 IFH=0THEN1270 

1530 IPS(NR,GZ)=LEFT$<IPS <NR,GZ),H-l 

) 

1540 LOCATE2+H,Y:PR I NT” »’ 

1550 GOTO 1260 
1560 • 

1570 • OPZOEKEN 
1580 • 

1590 CLS 

1600 PRINT”TYPE OP TE ZOEKEN GEGEVEN 
• »» 

1610 F0RY=4T012STEP2:GZ=<Y-2>/2 

1620 LOCATE3,Y:PRINT"- 

- <- ”;GGS(GZ) 

1630 NEXTY:Y=4:A=4 
1640 LOCATE,17 

1650 PRINT”KI ES MET CURSORTOETSEN EN 
DRUK [RETURN]” 

1660 LOCATE0,A:PRINT” ” 

1670 LOCATE0,Y:PRINT”->”:A=Y 
1680 CS=INKEYS:IFCS="”THEN1Ó80 
1690 BEEP:IFCS=CHRS<30)THENY=Y-2 
1700 IFCS=CHRS <31)THENY=Y+2 
1710 IFCS=CHRS(13)THEN1750 
1720 IFY<4THENY=4 
1730 IFY>12THENY=12 

1740 GOTO 1660 _ 

1750 LOCATE0, Y: PRINT”-> WIÊÊKttÊtÊÊÊÊÊKÊ 

. JS = "" 

1760 CS=INKEYS:IFCS=””THEN1760 

1770 BEEP:IFCS=CHRS<13)THEN1930 

1780 IFCS=CHRS <11)ORCS=CHRS <12)ORCS= 

CHRS(127)ORCS=CHRS<28)ORCS=CHRS <29)0 

RCS=CHRS <9>THEN1760 

1790 IFCS=CHRS <27)THEN530 

1800 IFCS=CHRS <8)THEN1880 

1810 • IFCS=CHRS(24)THEN1590 

1820 IFC$>CHRS(27)ANDCS<CHRS(32)THEN 

1760 

1830 JS=JS+CS:J = LEN <JS) 

1840 IF.J>18THENJS = LEFTS (JS, 18) 

1850 L0CATE3,Y:PRINTJS 
1860 GOTO 1760 

1870 ’-BACK SPACE 

1880 J=LEN(JS):IFJ=0THEN1760 
1890 JS=LEFTS<JS,J-l) 

1900 L0CATE2+J,Y:PRINT”»’ 

1910 GOTO 1850 

1920 ’-ZOEK GEGEVEN 

1930 CLS:GZ=<Y-2)/2:FORT=1TO50 
1940 IFIPS(T,GZ)=JSTHEN2000 
1950 NEXT 

1960 LOCATE10,10:PRINT”NIET GEVONDEN 
! ! !":LOCATE13, 12:PR I NT”DRUK [ESC]” 
1970 CS=INKEYS:IFCS=””THEN1970 
1980 IFCSOCHRS (27) THEN1970ELSE530 

1990 ’-GEVONDEN 

2000 NR=T:GOTO 1070 
2010 * 

2020 1 PROGRAMEREN INGAVE 
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2030 ’ 

2040 CLS 

2050 FORT=2TO20STEP2:GZ=T/2 

2060 LOCATE0,T:PR I NT”->- 

- <- ”;GGS(GZ):NEXT:Y=12:A=Y 

2070 AS=” 


2080 BS="■■■■■■■■■■’ 

2090 LOCATE23,A:PR INTAS 
2100 L0CATE23, A: PRINTGGSCA/2) 

2110 IFY< 2THENY = 2 

2120 IFY>20THENY=20 

2130 GZ- Y/2:LOCATE23,Y:PRINTBS: A = Y 

2140 L0CATE23,Y:PRINTGGS(GZ) 

2150 CS=INKEYS: 1S= ' ' THEN2150 

2160 BEEP:IFCS=CHRS(13)THENY=Y+2:GOT 
O 2090 

2170 IFCS=CHRS(8)ORCS=CHRS <12)ORCS=C 

HRS(127)0RCS=CHRS THEN2150 

2180 IFCS=CHR$ < >THENY=Y-2:GOTO20* 

2190 IFCS=CHRS(31>THENY=Y+2:GOTO2090 

2200 I FCS=CHR$ (.11) THEN2260 

2210 IFCS=CHRS<27)THEN530 

2220 GGS(GZ)=GGS(GZ>+ CS 

2230 IFLEN <GGS <GZ)) > 14THENGGS <GZ)=LE 

FTS(GGS(GZ >, 14) 

2240 GOTO 2140 

2250 ’- RESET GEGEVEN 

2260 GGS(GZ)=””:GOTO 2090 
2270 • 

2280 1 HELP 
2290 ' 

2300 CLS 

2310 PRINT”WERK ING BIJ INGEVEN 
2320 PRINT:PRINT 

2330 PRINT”CTAB] : EERSTE/ 

LAATSTE BLOK”:PRINT 

2340 PR INT”LINKS EN RECHTS : BLADERE 
N”:PRINT 

2350 PR INT”ONDER EN BOVEN : BEWEEG 
INGAVELIJN”:PRINT 
2360 PRINT”[RETURN] 

E INGAVE”:PRINT 
2370 PR INT”[SELECT] 

D BLADEREN”:PRINT 
2380 PR INT”[ESC] 

RINT 

2390 PR INT” [DEL] 

LOK” : PR I NT 
2400 PR INT” [HOME] 

EGEVEN”:PRINT 
2410 PRINT”!BS] 

ETTER”:PRINT 

2420 GOSUB2440: GOTO 2480 

2430 ’- VACHT OP SPATIEBALK 

2440 LOCATE0,22:PR INT”SPATIEBALK VOO 
R VERVOLG;[ESC) VOOR MENU” 

2450 A$=INKEYS:IFA$=CHRS(27)THEN530E 


VOLGEND 
SNELHEI 
MENU”:P 
RESET B 
RESET G 
RESET L 


LSEIFAS< >CHR$(32)THEN2450 
2460 RETURN 

2470 ’-VERVOLG 

2480 CLS 

2490 PR INT”WERK ING BIJ OPZOEKEN :”:P 
RINT:PRINT:PRINT 

2500 PR INT”VOLG DE INSTRUCTIES EN DA 
N PRINT:PRINT 

2510 PR INT”[SELECT] : OPNI EUV” : PRINT 
2520 PRINT”!RETURN] : GA ZOEKEN”:PRI 
NT 

2530 PRINT”! ESC] ; MENU”:PRINT 
2540 PRINT”[BS] : RESET LETTER” 

2550 GOSUB2440:CLS 

2560 PR INT”WERKING BIJ PROGRAMMEREN 
INGAVE :”:PRINT:PRINT:PRINT 
2570 PRINT”ONDER EN BOVEN : BEWEEG I 
NGAVELIJN”:PRINT 



2580 PRINT”!RETURN] : VOLGENDE 

INGAVE”:PRINT 

2590 PRINT”!HOME] : RESET GE 

GEVEN”:PRINT 

2600 PRINT”! ESC] : MENU”:PR 

INT 

2610 GC UB2440: CLS 

2620 PR TNT”WERK ING BIJ PRINTEN : ” : PR 
1 NT:PRINT:PRINT 

2630 PR INT”VOLG DE INSTRUCTIES EN DA 
N :”:PRINT:PRINT 

2640 PRINT” [ RETURN] : PROGRAMMEER VA 
T AF TE DRUKKEN" 

2650 PR I NT"[ SELECT] : VERDER":PRINT 

2660 PRINT”tESC] : MENU”:PRINT 

2670 PRINT:PRINT"CURSORTOETSEN VOOR 
KEUZES BEPALEN”:GOSUB2440:GOTO 530 
2680 ’ , 
2690 ’ PRINTEN 
2700 ’ 

2710 CLS:PRINT”TE PRINTEN :”:K=1 
2720 F0RT=2T011:LOCATE4 , T*2 
2730 PR INTPRS <T-1>:LOCATE11,T*2 
/40 PRINTGGS(T-l):NEXT:Y~4:A=Y 
2750 LOCATE0,A:PRINT” ” 

2760 IFY<4THENY=4:K=1 
770 IFY>22THENY=22:K=10 
2780 I.OCATE0, Y: PRINT”->” : A=Y 
2790 CS=INKEYS:IFCS=”"THEN2790 
2800 BEEP:IFCS=CHRS(13)THEN2870 
2810 IFCS=CHRS <30)THENY=Y-2:K=K-1:GO 
TO2750 

2820 IFCS=CHRS < L>THBNY*Y+2: K=K+1:GO 
TO2750 

2830 I FCS=CHRS (27) THEN! ii 10 
2840 IFCS HR$(24)THEN2930 
2850 GOTO 2790 

2860 ’- RETURN 

2870 IFPRS(K > =””THENPRS(K > =”PRINT”:G 
OTO 2900 

2880 IFPRS CK>=” "THENPRS(K)=”PRI 

NT”:GOTO 2900 

2890 IFPRS(K)=”PRINT"THENPRS(K)=” 

tl 

2900 LOCATE4,Y:PRINTPRS(K) 

2910 GOTO 2790 

2920 1 -SELECT 

2930 CLS 

2940 PRINT”MAAK EEN KEUZE 
2950 LOCATE,5 

2960 PRINT”1) GROOT LETTERTYPE”:PRIN 
T 

2970 PR INT”2) KLEIN LETTERTYPE”:PRIN 
T 

2980 CS=INKEYS:IFCS=””THEN29S0 
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2990 IFCS=CHRS(27 > THEN530 

3000 IFCS=”1”THEN3010ELSEIFCS=”2”THE 

N3020ELSE2930 

3010 LPRINT CHRS <18):GOTO 3030 
3020 LPRINT CHRS(15) 

3030 LOCATE,5 

3040 PRINT”1) PRINT EEN BLOK ”:PRIN 
T 

3050 PRINT”2) PRINT LIJST ”;PRIN 

T 

3060 PR INT”3) PRINT DEEL LIJST”:PRIN 
T 

3070 C$=INKEYS:IFC$=””THEN3070 
3080 IFCS-CHRS(27)THEN530 
3090 IFCS=”1”THEN3110ELSEIFCS=”2”THE 
N3130ELSEIFCS=”3”THEN3150ELSE3070 

3100 »-PRINT BLOK 

3110 LOCATE0, 15:LI NEINPUT”WELK BLOK 
?? ”;CS:C=VAL(C$>:A=C:B=C: GOTO 3170 

3120 ’-PRINT LIJST 

3130 A=1:FORC=1TO50:IFIPS(C,1)=””THE 
NB=C-1:GOTO 3170ELSENEXT:B=C-1:GOTO 
3170 

3140 '-PRINT DEEL LIJST 

3150 LOCATE0,15:LINEINPUT”le BLOK : 

”;AS:LOCATE0, 17:LINEINPUT”2e BLOK : 

” : BS: A=VAL(AS):B=VAL(BS) 

3160 ’-PRINTEN 

3170 LPRINT CHRS(27);CHRS(51);CHRS(1 
5) 

3180 FORT=ATOB:FORE=1TO10 

3190 IFPRS(E)=”PR INT”THENLPRI NT IPS(T 

, E) 

3200 NEXTE:LPRINT” ”:LPRINT” ”:NEXTT 
3210 GOTO 530 
3220 ' 

3230 ’ INLEZEN 

3240 ’ " —- 

3250 CLS:GOSUB3770 

3260 OPEN”A:BSTND”FORINPUTAS#1 

3270 F0RT=1T05:INPUT#1,FTS(T>:NEXT 

3280 FORT=1TO10:INPUT#1,GGS(T) 

3290 INPUT#1,PRS(T):NEXT: TL=0 
3300 FORT=1TO50:FORH=1TO10 
3310 INPUT#1,IPS(T,H):NEXTH,T 
3320 CLOSE#1:GOTO 530 
3330 ’ 

3340 ’ WEGSCHRIJVEN 
3350 ’ 

3360 CLS:GOSUB3770 
3370 OPEN”A:BSTND”FOROUTPUTAS#l 
3380 F0RE=1T05:PRINT#1,FTS(E):NEXT 
3390 FORE=1TO10:PRINT#1,GGS(E) 

3400 PRINT#1,PRS(E):NEXT 
3410 FORE=1TO50:FORH=1TO10 
3420 PRINT#1,IPS(E,H):NEXTH,E 
3430 CLOSE#1:GOTO 530 
3440 ’ 

3450 ’ SORTEREN 
3460 ’ 

3470 CLS:FORT=2TO20STEP2:L0CATE3 , T 
3480 PRINTGGS(T/2):NEXT:Y=2:A=Y 
3490 LOCATE0,0:PRINT”SORTEREN (KIES 
MET CURSOR, DRUK [RETURN]” 

3500 LOCATE0,A:PR I NT” ” 

3510 IFY<2THENY=2 

3520 IFY>20THENY=20 

3530 LOCATE0,Y:PRINT”->”:A=Y 

3540 C$=INKEYS:IFC$=””THEN3540ELSEBE 

EP:IFC$=CHR$(13)THEN3600 

3550 IFCS=CHR$(30)THENY=Y-2:GOTO3500 

3560 IFC$=CHRS(31)THENY=Y+2: GOTO3500 

3570 IFCS=CHR$(27)THEN530 

3580 GOTO 3540 

3590 ’-SORTEREN 


3600 CLS:ST=Y/2 

3610 F0RT=1T049:LOCATE12,0:PRINTUSIN 

G”NUMMER : ##";T 

3620 IFINKEYS=CHRS(27)THEN530 

3630 IFIPS(T,ST)=””THENIP$(T,ST)=CHR 

S (255) 

3640 IFIPS(T+l,ST)=””THENIPS(T+l,ST) 
=CHR$(255) 

3650 IFIPS(T,ST)>IPS(T+l,ST)THEN3680 
3660 NEXT:GOTO 3720 

3670 ’-VERWISSEL 

3680 FORE=1TO10 

3690 SWAPIPS(T,E),IPS(T+l,E):NEXT 
3700 GOTO 3610 
3710 ’-OK 

3720 FORT=1TO50:IFIPS(T,ST)=CHRS(255 
)THENIPS(T,ST)=”” 

3730 NEXT:GOTO 530 
3740 ' 

3750 ’ FOUT ! 

3760 ’ 

3770 ONERRORGOTO3780:RETURN 

3780 IFERR=66THEN3850 

3790 IFERR=69THEN3860 

3800 IFERR=70THEN3870 

3810 IFERR=68THEN3880 

3820 IFERR=53THEN3890 

3830 COLOR 15,4,4: SCREEN0: KEYON 

3840 WIDTH37 : PR INT”FOUT IN REGEL : ” 

;ERL:PRINT:PRINT:END 

3850 PR INT”DE DISKETTE ZIT VOL ; PLA 
ATS EEN NIEUWE”:GOTO 3900 
3860 PR INT”VERKEERDE DISKETTE ; TOT 
ZIENS !!”:GOTO 3920 

3870 PRINT”PLAATS EERST EEN DISKETTE 
!!”:GOTO 3900 

3880 PRINT”DISKETTE BEVEILIGD !!”:GO 
TO 3900 

3890 PRINT”ER IS NOG GEEN BESTAND WE 
GGESCHREVEN ! ! ” 

3900 FORT=1TO1000: NEXTT 
3910 RESUME530 
3920 FQRT=1TO1000: NEXTT 
3930 DEFUSR=0 :U=USR(0) 
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WOORDENLADDER. 


Bij dit spel moeten twee spelers om beurten een goed 
Nederlands woord intikken door een letter aan het 
voorgaande woord toe te voegen. De letters mogen 
daarbij wel door elkaar worden geschud. De computer 
genereert een letter. De speler die moet beginnen 
(rood of blauw) vult dat dan aan tot een woord van 
twee letters en geeft dan een RETURN. De tweede 
speler vormt dan weer een woord van drie letters, 
enz. Iedere speler krijgt steeds evenveel punten als 
het woord lang is. Het gaat er dus om, wie na een 
bepaald aantal ronden de meeste punten weet te 
vergaren. Een tijdbalk onder op het scherm geeft de 
bedenktijd aan. Deze is 5 sec. ♦ 5 sec. voor elke let¬ 
ter dat het woord lang is. Voor een uoord van 6 let¬ 
ters is dat dus 35 sec. Hebt U een tikfout gemaakt, 
druk dan op de DEL-toets en begin opnieuw voor zo¬ 
ver de nog beschikbare tijd dat toelaat. Hebt U bin¬ 
nen de beschikbare tijd geen woord ingetikt dan 
gaat de beurt over naar de tegenspeler.Deze krijgt 
dan echter maar de helft van de bedenktijd toege- 
wezen. Vindt ook deze geen goed woord dan is de 
speelronde ten einde. Hebt U wel een woord ingetikt 
doch kloppen de letters niet (de computer contro¬ 
leert dat) dan wordt het woord gewist en krijgt U de 
kans om het opnieuw te proberen mits de resterende 
tijd dat toelaat. Heeft iemand geen goed Nederlands 
woord ingevuld (dit kan de computer niet controle¬ 
ren) dan gaat de tegenspeler toch gewoon door met. 
de dan beschikbare letters. Aan het einde van een 
ronde kunnen in gezamenlijk overleg (eventueel met 
de hulp van Van Dale’) onjuiste woorden worden ge¬ 
wist door m.b.v. de cursortoetsen de a op het be¬ 
treffende woord te plaatsen. Als daarna dan de 
DEL-toets wordt ingedrukt wordt het woord doorge- 
streept en tevens de score aangepast. Na een druk 
op de SELECT-toets wordt de woordladder gewist en 
vangt de nieuwe ronde aan. 

Beeldschenrn WIDTH 36 


10 >********************c*********** 


20 ** WOORDENLADDER * 

30 * * * 

40 * * Door: G. W. J • v. d. Pol . * 

50 * * 

60 ** (c)1987 MSX—Gids Amsterdam * 

70 * * * 


80 ******************************** 
90 GOSUB 1660 

100 SCREEN2,0:COLDR15,3,3:CLS 
110 SPRITE*(0)=CHR*(&H92)+CHR*(&H54) 
+CHR* (&H38) +CHR* (&HFE) +CHR* (&H3B) +CH 
R$ (&H54) +CHR* <?<H92) +CHR* (?<H0) 

120 * 

130 ***** Speelveld **** 

140 * 

150 LINE(40,0)—(214,10),1,BF 

160 PSET(80,2),1 

170 PRINT# 1, "WÖORDENLADDER" 

180 PSET(79, 2) ,1 

190 PRINT#1,"WÖORDENLADDER”:COLOR 1 
200 LINE(5,17)-(66,75),1,BF 
210 L.INE (B, 20) - (63,72) , 7, BF 
220 LINE(189,17)-(250,75),1,BF 
230 LINE(192,20)—(247,72),7,BF 
240 PSET(16,28),7:PRINT#1,"SCORE 
250 PSET(200,28),7:PRINT#!,”SCORE 
260 LINE(0,85)-(71,117),1,BF 
270 LINE(3,BB)-(68,114),11,BF 
280 LINE(184,85)-(255,117),1,BF 
290 LINE(187,88)-(253,114),11,BF 


25 










300 F'SET <202,92) ,11: PRINT#1, "RONDE 
310 GOSIJB 1580 
320 •’ 

330 •’**** Nieuwe ronde **** 

340 •’ 

350 X=132:Y=10:XX=123:YY=19:R=R+1 
360 IF RMOD2=0 THEN 380 
370 01=4:02=9:GOTO 390 
380 01=9:02=4 

390 PUTSPR ITE0, < X X,YY),12,0 

400 LINE(210,102)-(234,112), 11,BF 

410 F'SET (210, 102) , 1 1: PRINT# 1, R 

420 V=0:Z=1:GOSUB 600:GOSÜB 600 

430 W=RND(~TIME):A=RND(1)*26+65 

440 IFA=67 0RA=72 0RA=74 0RA=81 ORA= 

86 0RA=88 THEN 430 

450 I*=CHR*(A):B*=””:TI ME=0 :GOSUB 80 
0 

460 I*="":Z=0:GOTO 1010 
470 ’ 

480 ***** Hoo-fdlus **** 

490 * 

500 I*=INKEY*:GOTO 880 
510 A=ASC(I*) 

520 IF A=13 THEN GOTO 1010 

530 IF A=127 THEN GOSUB 750 

540 IF A>96 AND A<123 THEN A=A-32:I$ 

( p) ) 

550 IF A<65 OR A>90 THEN 500 
560 GOSUB 800:GOTO 500 
570 * 

580 ***** Puntentel 1 i ng. **** 

590 * 

600 U=S:V=V+1:IF S=1 THEN S=0 
610 IF 01=4 THEN 650 

620 S1=S1+S:LINE(16,40)-(56,52),9,BF 
630 F'SET (16, 43) , 9: PRINT#! , SI 
640 GOTO 670 

650 S2=S2+S:LINE(200,40)-(240,52),4, 
BF 

660 F'SET (200, 43) , 4: PR I NT# 1 , S2 
670 X=X-4:Y=Y+10:A*="”:SWAP 01,02 
680 LINE(X-8,Y-2)-STEP(4+8*V,+9),01, 
BF 

690 LINE(5,183)-(250,191),1,BF 
700 IF Z=1 THEN RETURN 
710 TIME=0: RETURN 
720 ' 

730 ='**** Woord wiesen. **** 

740 “ 

750 LINE(X-8,Y-2)-STEP<B*V,+9),C1,BF 
760 A$="":S=0:RETURN 
770 ’ 

780 '**** Letters uitprinten. #### 
790 11 


800 A$=A$+I$:S=LEN(A$) 

810 IF S>(V-l)THEN A$=LEFT$(A$,V-l) 
820 F'SET ( X,Y) ,01: COLOR 15: PRINT# 1, A$ 
830 LINE(3,88)-(68,114),11,BF 
840 COLOR 1:RETURN 
850 ’ 

860 Tijdbalk. #*## 

870 •- 

880 IF POINT( 128, 165)03 THEN Y=Y-10 
‘.GOTO 1210 
890 B=TIME/(U+2)-5 
900 IF B<10 THEN B=10 
910 IF B>245 THEN B=245 
920 LINE(8,185)—(B,189),9,BF 
930 IF B>200 THEN BEEP 
940 IF B=245 THEN 960 
950 IF I$=""THEN 500 ELSE 510 
960 S=0:X=X+4:Y=Y-10:E=E+1:U=U/2 
970 IF E=2 THEN 1210 ELSE GOSUB 610 
980 ’ 

990 ’**** Controle letters *#*# 

1000 •’ 

1010 IF S<V-1 THEN 530 

1020 D$=A$:E$=B$: IF V<3 THEN 1170 

1030 C$=LEFT$(B$,1) 

1040 FOR 1=1 70 LEN(A$) 

1050 IF MID$(A$,I,1)=C* THEN 1070 
1060 NEXT:GOTO 1080 

1070 A$=LEFT* <A$, 1-1 ) +F< IGHT$ (A$, LEN < 
A^)-I) 

1080 B$=RIGHT*(B*,LEN(B*)-1) 

1090 F'SET (8,92) , llsPRINT#l, "LETTERS 
1100 IF B*="" AND LEN(A*)=i THEN 116 
0 

1110 IF B*="" AND L..EN (A$) >1 THEN 113 
0 

1120 GOTO 1030 

1130 F'SET (20, 102) , 11: PRINT#! , "FOUT" 
1140 LINE(X-8,Y-2)-STEP(4+8*9,+9),01 
, BF 

1150 B*=E* sI*="":A*="":GOTO 500 
1160 F'SET (20, 102) , 11 : PR I NT# 1, " GOED 
1170 B*=D*:E=0: GOSUB 600:GOTO 530 
1180 » 

1190 ’* Einde ronde/Woordcontrole * 

1200 ' 

1210 LINE <0,168)-(255,179),7,BF 
1220 E=0:F'SÈT(6, 170) ,3 - 

1230 PRINT#1,"EINDE RONDE" \ R;”— WOO 
RDEN GOED?" 

1240 I*=INKEY$:IF I*=""THEN 1240 
1250 IF ASC <I*)=24 THEN 1450 
1260 IF ASC(1$)=127ANDYY>29 THEN 133 
0 

1270 IF ASC(I*)=31 THEN YY=YY+10 
1280 IF ASC(1$)=30 THEN YY=YY-10 
1290 IF YY<19 THEN YY=19 
1300 IF YY>Y—1 THEN YY=Y-1 
1310 PUTSF'RITE0, (XX, YY) , 12,0 
1320 GOTO 1240 

1330 IF F'OINT (XX, YY+4) =1 THEN 1310 
1340 SS=YY/ 10— 1: CC=F'OINT (XX, YY) 

1350 IF CC=4 THEN 1400 
1360 S1=S1-SS 

1370 LINE(16,40)-(56,52),9,BF 
1380 F'SET (16,42) , 9: PRINT#1, SI 
1390 GOTO 1430 
1400 S2=S2-SS 

1410 LINE(200,40)-(240,52),4,BF 

1420 PSET(200,42),4:PRï NT#1,S2 

1430 LINE(XX+4-4*SS,YY+4)-(XX+2+4*SS 

,YY+5),1,BF 

1440 YY=l9:GOTO 1310 

1450 GOSUB 1520 

1460 LINE(72,12)-(183,140),3,BF 
1470 LINE(0,140)-(255,180) ,3,BF 
1480 T=T+1:GOTO 350 
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1490 •' 

1500 ’#### Langste woord ###* 

1510 ’ 

1520 FDR J =39 TD Y-l STEP 10 

1530 IF POINT (XX,J)=9 AND POINT(XX,J 

+4)01 THEN L1=J\ 10-1 

1540 IF POINT( X X , J )=4 AND POINT(XX,J 
+4)01 THEN L2=J\10-1 
1550 NEXT 

1560 IF L1>W1 THEN W1=L1 
1570 IF L2>W2 THEN W2=L2 
1580 LINE(20 , 56)-< 52,68) , 9,BF 
1590 LINE <204,56) — <236,68), 4,BF 
1600 PSET(20,59),9:PRI NT#1, W1 
1610 PSET<204,59),4sPRINT#1,W2 
1620 RETURN 
1630 ’ 

1640 •'###* Introductie ***# 

1650 ’ 

1660 SCREEN 25COLOR 9,0,0:CLS 
1670 DEFINT A-ZtOPEN"GRP:”AS#1 
1680 LINE <40, 10)-(215,40) , 15, BF 
1690 LINE(44,14)-(211,36>,3,BF 
1700 LINE(126,40)-(84,145),11 
1710 LINE(126,40) — (168, 145) , 11 
1720 L. INE (84 , 145)-(168, 145) , 11 
1730 PAINT(126,42) ,11 
1740 FOR 1=0 TÓ 15 
1750 GOSUB 1950 
1760 PSET(124,70):PRINT#1,"Y 
1770 GOSUB 1920 
1780 PSET(120,80):PRI NT#1,"WY 
1790 GOSUB 1950 

1800 PSET(116,90)SPRINT#1,"WYN 
1810 GOSUB 1920 

1820 PSET <112,100):PRINT#1,"ZWYN 
1830 GOSUB 1950 

1840 PSET(108,110):PRINT#1,"WYZEN 
1850 GOSUB 1920 

1860 PSET(104,120):PRINT#1,"ZWYGEN 
1870 GOSUB 1950 

1880 PSET(100,130):PRINT#1,"WYZI GEN 
1890 GOSUB 1920 
1900 NEXT 

1910 FOR 1=0 TO 80005NEXT:RETURN 
1920 PSET (76,21) ,3: COL.OR 4 
1930 PRINT#ü"WOÖRDENLADDER 
1940 GOTO 1970 
1950 PSET(75,21),3:COLOR 9 
1960 PRINTtl,"WOÖRDENLADDER 
1970 FOR 1=0 TO 1000:NEXT 
1980 RETURN 
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MSX-GIDS 

BEWAARBANDEN 

Voor de MSX Gids zijn nu ook opbergmappen 
verkrijgbaar. Deze bewaarbanden zijn - uiter¬ 
aard - geel en hebben het MSX-Gids logo 
(in zwarte opdruk) op de voorzijde en op de rug. 
In deze mappen kunnen minstens 6 exemplaren 
van de Gids opgeborgen worden. De bladen 
worden in de map vastgezet met speciale 
(bijgeleverde) metalen klemmen. Hierbij wordt 
het blad niet beschadigd! De mappen worden 
geleverd in een bijbehorende verzenddoos en 
de prijs van deze bewaarband is ƒ 19,95 per 
stuk. Deze prijs is inclusief BTW en verzend¬ 
kosten. 

De banden zijn te bestellen door overmaking 
van ƒ 19,95 per stuk op Postbanknummer: 
5036011 t.n.v. J. Herps te Lelystad onder ver¬ 
melding van ’bewaarband’. 

Voor België is dit Bfr. 365 op bankrekening 
235-0430464-87 bij de Generale Bank te 
Hasselt t.n.v. J. Herps, Postbus 516, 
8200 AM Lelystad onder vermelding van ’be¬ 
waarband’. 
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REKENEN OP DE MSX. 




Deel 2 

Het berekenen van PI. 

Bij een beetje fatsoenlijke pocketcalcultor is het mo¬ 
gelijk om met een druk op de Pl-toets deze waarde in 
acht decimalen nauwkeurig op te roepen. Dit lukt met 
bij de MSH. Hoewel, het is niet moeilijk om PI er tot 
op 14 decimalen nauwkeurig uit te halen. Maar daar¬ 
over later. 

Leuker is het om zelf eens te proberen om PI nauw¬ 
keurig te berekenen. Met een klem beetje kennis van 
de-vlakke meetkunde en de hulp van de MSH is dat 
een fluitje van een cent. Wie weet hoe lang ftrchime- 
des er vroeger over gedaan heeft om uit te vinden 
dat PI bij benadering 22/7 was. 

Bü onze berekening of beter gezegd "benadering"! PI 
is een "onmeetbaar getal") gaan we uit van een in 
een cirkel ingeschreven regelmatige veelhoek. Wan¬ 
neer het aantal hoeken maar groot genoeg is, dan 
zal uitemdelijk de omtrek van deze veelhoek vrijwel 
gelijk zijn aan die van de cirkel. Het is niet moeilijk 
om van een veeihoek (6. 12. 24 enz. -hoek) de omtrek 
te berekenen en dan daarna PI uit de verhouding 
tussen omtrek en diameter. 

In onderstaand programma wordt dit gedaan voor een 
veelhoek, opklimmend van 12 naar 251S5824 hoeken! De 
zijden worden berekend met behulp van de stelling 
van Pythagoras. 



(zie figuur). Het aantal zijden wordt telkens een fak- 
tor 2 verhoogd. 

Als we het programma RUNnen dan zien we telkens de 
berekende PI bij opklimmende hoeken. Binnen 10 sec. 
komen we dan tenslotte bij de 25165824-hoek met een 
berekende PI van 3.1415926535897. hetgeen zeer goed 
blijkt te kloppen met PI zoals de MbK die te zien 
geeft met de formule; PI S ATN(1)»4 


In deze laatste formule is (1) de tangens van een 
hoek van 45 graden. ATN(l) geeft dan de boogtangens 
in radialen. Daar een hoek van 180 graden overeen¬ 
komt met PI radialen moeten we ATN(l) dus met 4 
vermenigvuldigen om PI te vinden. We zouden ook uit. 
kunnen gaan van een hoek van 90 graden, waarvan 
de tangens oneindig is. Dat "oneindig" zouden we dan 
kunnen benaderen met het grootst mogelijke getal 
dat de MSH nog kan verwerken. De formule zou dan 
worden: PI=ATN(10 A 61)**2. Het resultaat is hierbij dan 
gelijk aan dat van de voorgaande formule. 

Opmerking. 

In principe zouden we het programma nog wel verder 
kunnen laten doorlopen dan tot de ruim 25 willioen 
hoeken, doch dan wordt als gevolg van de afrondin¬ 
gen van de zeer kleine getallen de nauwkeurigheid er 
niet beter op. 


10 SCREEN ö : U11>TH 37:C0L0R 15,4,4 
20 KEYOFF:CLS:BEFI>BL A-2 
30 R*1 :Z1=R: H = 6 

40 'R*straal ortschraven cirk.1, 

50 'Zl=zijde van n-hoek. 

60 'Z2*zijde van 2n-ho»k. 

70 'H»aantal hoeken van de Ingeschreven veelhoek, 
60 N*H»2 

90 IF 1050000000! THEN 160 
100 S*(21/2) A 2 

110 Z2«SGR<S+<R-SQR<R A 2-S>> A 2> 

120 P*<Z2*H)/<R*2> 

130 PRIWTUSlH6 , IM6#iM*;N; 

140 PRIHTTAB<8)"-ho*ki"iP 
150 21*22:60T0 60 

160 PRINT" ATH(1)*4*“ATH<1>14; 

170 GOTO 170 


REKENEN OP DE MSH 
MET MEER DAN DUBBELE PRECISIE. 

Met enige kunstgrepen is het mogeiijk om op de MSH 
berekeningen uit te voeren met een nauwkeurigheid 
weike aanzienlijk groter is dan de toch ai respecta¬ 
bele dubbele precisie Ü4 cijfers 1 ). 

In het volgende programma zullen we eens tot op het 
laatste cijfer nauwkeurig het product berekenen van: 

123456789012 (A) en 210987654321 (B) 

Dat product bestaat dan uit 24 cijfers, De berekening 
gaat hierbij dan als volgt: 

Eerst splitsen we van beide getallen de laatste groep 

van 6 cijfers af, zodat we krijgen: 

Al s i23456 A2=789öl2 Bl=210987 82*654321 

Vervolgens gaan we deze groepen met elkaar verme¬ 
nigvuldigen: 

Al 4 BI A1KB2 B1XA2 A2XB2 


De eerste term moeten we dan met 1U A 12 vermenig¬ 
vuldigen, de twee volgende termen met 10 A B en dan 
tenslotte alles sommeren. De kneep zit hem nu daarin 
dat we het vermenigvuldigen met 10*12 resp. 10 A B en 
het sommeren nu gaan doen door met strings te wer¬ 
ken. 
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Als ue onderstaand programma nu RUNnen vinden we: 
Uitkomst volgens dubbele precisie: 

2.6047858323644E*22 
Exacte uitkomst: 

26047858323644487120852 

Dit programma is in zoverre universeel dat het werkt 
voor alle willekeurige hele getallen (A en B) met 6 
tot 12 cijfers. Voor andere rekenproblemen moet het 
wel worden aangepast. 


10 SCREEN0:HIPTH37: COLOft15,4 ,4 :CIS 
20 DEFPBL A-C 

30 A» 123456789012» :B»21098?654 32i)l 
40 A2$=RIGHT*<STR*(A>,6>:A2=VAL(A2*> 

50 B2$=RI6HTf(STR*(B),6).B2=VAL(B21) 

60 ll=LEH<STRI(A))-6 
70 L2=lEH(STR$(B>)-6 
00 Al$ B LEFT$<STRt<A).ll) :A1 b VAL<A1*) 

90 Blf = LEFT#(STRl<B),L2):B1 = VALCBI* ) 

100 ' 

110 C1»A1*B1 
120 C2 S A1*B2+81>A2 
130 C3»A2*B2 
140 ' 

150 C3S=RI6HT*(STR«(C3>,6) 

160 L3*LEN<STR$(C3>>-6 

170 C4F»LEFT*<STRS<C3),L3>:C4=VAL(C4$> 

180 ' 

190 C2*C2+C4 

200 C2F=RIGHT$(STRF(C2),6) 

210 L4»LEN<STR*<C2>>-6 

220 C51 3 LEFT$<STR*(C2),L4):C5»VAL<C5*> 

230 ' 

240 C1-C1+C5 
250 C1I»STR$(C1) 

260 ' 

270 PRINT“Uitkoest volgens dubbele precisie: 
280 PRINT 
290 PRIHTA1B 
300 PRINT 

310 PRINT*Exacte uitkomst: 

320 PRINT 

330 PRINTC14+C24+C3* 

340 ENI> 


HET SCHAAKBORD MET DE GRAANKORRELS. 

Misschien kunt U nu zelf eens het exacte antwoord 
vinden op het aloude probleem van het schaakbord 
met de graanKorrels. U weet wel, 1 korrel op vak I, 2 
korrels op vak 2. 4 korrels op vak 3 en zo vervol¬ 
gens telkens het dubbele aantal op ieder volgend 
vak. Hoeveel korrels worden dat in totaal 7 Een vol¬ 
gende keer geef ik U de oplossing. 

Gcr. 
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MSX MACHINETAAL 

DEEL 4 

In de vorige delen hebben we gezien hoe het moge- 
lijk is om getallen tn de registers van onze proces¬ 
sor te zetten* welke adresseermogelijkheden we heb¬ 
ben en wat de funktie en werking van vlaggen :n 
machinetaal is. Ditmaal zullen we eens gaan kijken 
wat de Z80 allemaal kan doen met getallen, die we 
in zgn registert) hebben opgeslagen. 

De eenvoudigste vorm van rekenen die cns hierbij 
te binnen schiet is zondermeer simpelweg het opge- 
slagen getal ophogen (mcrease INC; of verlagen 
(decrease. DEC;. Het is hiermee natuurlijk wei ge- 
makkehjk oro de computer te laten tellen: zet een 
getal in een register en hoog het steeds met 1 op. 
Hoewel opdrachten van deze soort op het eerste ge¬ 
zicht misschien een beetje beperkt lijken, spelen ze 
toch een belangrijke rol in de meeste machinetaal- 
programma's. 

HOE TELLEN HE OP ? 

Het is met onze Z80 mogelijk om een getal, dat zich 
in ieder register in de processor mag bevinden, met 
1 op te hogen. Wat we doen Is ophogen, oftewel in- 
crease’n op z’n Engels. Of we dat nou op z’n Engels 
of gewoon op z'n Nederlands doen, het effekt is 
hetzelfde! We moeten ons echter houden aan de En¬ 
gelse benaming voor deze aktie. Deze ophoog- of in- 
crease- opdracht korten we af als INC (van mcrea- 
se). 


INC register 



















HOE TELLEN WE AF ? 


Waarbij voor "register" ieder willekeurig 8 bits regi¬ 
ster kan worden ingevuld. Zoals reeds hierboven ge¬ 
zegd, is het met deze instruktie mogelijk om getal¬ 
len in alle registers op te hogen. Er zijn dus ook 
INC-opdrachten voor de 16 bits registers (die zoals 
we al eerder zagen opgebouwd zijn uit twee 8 bits 
registers elk) en de indexregisters IK en IY. 

Deze zien er als volgt uit: 

INC ~16 bits register] 

INC IK 
INC IY 

Voor "16 bits register" kunnen we hier dus BC, HL, 
DE, etc invullen. 


I 

De symmetrische opbouw van alle Z80 instrukties 
voorspelt eigenlijk al dat we alles wat we ophogen 
ook kunnen "aflagen". Dit is in werkelijkheid ook 
precies het geval. 

Inplaats van de INC instruktie om te "increase"n, 
kennen we ook de DEC instruktie waarmee het moge¬ 
lijk is getallen af te lagen, oftewel met 1 te ver¬ 
minderen. Verminderen in het Engels is "to decrea- 
se", vandaar. Everything clear? 

Als we rekening houden met alle adresseermethoden 
en registers, krijgen we het volgende lijstje met INC 
en DEC opdrachten: 


Een aanzienlijk deel van onze instruktieset bestaat 
dus uit INC opdrachten omdat deze mogelijk zijn met 
alle registers, maar er Is meer! Het is namelijk ook 
mogelijk om een getal op te hogen, dat zich niet in 
de processor bevindt, maar in het geheugen staat. 
Als we dit willen doen, moeten we 1 van de inriexre- 
gisters (IK en IY) of HL gebruiken om het gewenste 
geheugenadres aan te wijzen. Dit gaat dus op de 
volgende manier: 

INC (IK+d) 

INC (IY+d) 

INC (HL) 


DEC r INC r 
DEC rr INC rr 
DEC IK INC IK 
DEC IY INC IY 
DEC (HL) INC (HL) 

DEC (IK+d) INC (IK+d) 

DEC (IY+d) INC (IY+d) 

Een "r" staat voor een 8 bits register en "rr" voor 
een 16 bits register. De "d" is een konstante waarde 
die bij IK of IY wordt opgeteld. 

EFFEKT OP DE VLAGGEN 


Herinner je je de funktie van de haakjes O in een 
instruktie nog? Ze geven aan dat het 16 bits getal 
ertussen als geheugenadres moet worden opgevat. 
Stel dat ons HL register het getal SHE123 bevat, de 
instruktie INC (HL) zorgt er dus voor dat het getal 
dat op geheugenplaats 4HE123 staat 1 groter wordt. 

De "d" in de eerste twee indexregisterinstrukties 
staat voor “distance" ofwel een bepaalde afstand 
vanaf de waarde in het indexregister. Deze distance 
(die als 8 bits getal direkt in de instruktie moet 
worden meegegeven) wordt eerst bij de waarde van 
het indexregister opgeteld. De waarde die in het in¬ 
dexregister is opgeslagen verandert echter hierdoor 
niet. Het is op deze manier mogelijk om de indexre¬ 
gisters dus naar het begin van een tabel met gege¬ 
vens te laten wijzen (naar het eerste geheugen¬ 
adres ervan) en dan de gegevens in de tabel te be¬ 
reiken zonder steeds een pointer naar het gewenste 
adres op te zetten. 

Als je op dit moment precies het verschil weet tus¬ 
sen: 

INC HL en 
INC (HL) 

heb je de inhoud van dit stukje waarschijnlijk goed 
begrepen. Voor de duidelijkheid: in het eerste geval 
is de INC instruktie van invloed op het getal in het 
HL register (16 bits) en in het tweede geval op het 
getal (8 bits) op het geheugenadres dat door het 
HL register wordt aangewezen. Houd er rekening 
mee dat we met "aanwijzen" bedoelen, dat het 16 bits 
getal in een register het adres van een geheugen¬ 
plaats voorstelt. 


Omdat alle INC en DEC instrukties die betrekking 
hebben op 8 bits registers alle vlaggen (behalve de 
carry vlag) beïnvloeden zullen we de effekten hier¬ 
van even doornemen. 


Het is op dit punt belangrijk goed te onthouden dat 
de tncrease en decrease instrukties op 16 bit getal¬ 
len geen enkele vlag beinvloeden! Alleen de INC en 
DEC opdrachten die te maken hebben met 8 bits ge¬ 
tallen hebben effekt op de vlaggen. 

De SIGN vlag zal gezet (=1) worden als bit 7 van het 
8 bits resultaat 1 is. 

De ZERO vlag zal gezet (=1) worden als het 8 bits re¬ 
sultaat nul is. 


De OVERFLOW vlag zal worden gezet (=1) als bit 7 
van het 8 bits getal is veranderd. 

De HALF-CARRY vlag zal worden gezet (=1) als bit 4 
van het 8 bits getal wordt gebruikt om "1 te ont¬ 
houden" of "1 van te lenen" tijdens het uitvoeren 
van de instruktie. 


De NEGATE (negative) vlag zal worden gezet W) als 
de laatste instruktie een aftrekking was, dus bij ie¬ 
dere DEC instruktie. Na een INC instruktie zal deze 
vlag gereset ztfn (=0). 


T vs 


„ut kort kunnen we dus zeggen dat we de inhoud 
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kunnen ophogen of aflagen door middel van respek- 
tievelijk de INC en DEC opdracht. Omdat deze in¬ 
strukties niet alleen werken voor de registerparen 
(HL, DE en BC), maar ook voor de indexregisters IK 
en IY, zijn ze zeer bruikbaar. 
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Behalve het direkt veranderen van de waarde in een 
register, kunnen we ook waarden (getallen, bytes) 
die op adressen in het geheugen zijn opgeslagen be¬ 
ïnvloeden door het adres in HL of in een van de in- 
dexregisters op te slaan. Dit zijn de opdrachten 
waarin haakjes voorkomen. 

De INC en DEC opdrachten beïnvloeden alle vlaggen 
(behalve de carry vlag), MITS ze van toepassing zijn 
op 8 bits getallen. De 16 bits bewerkingen hebben 
totaal geen effekt op de vlaggen! 

REKENEN MET 8 BITS GETALLEN 

Öp dit moment is het misschien zinnig om eens wat 
woorden te besteden aan het rekenen met 8 bits 
getallen. Het is reeds ter sprake gekomen dat onze 
Z80 een populair 8 bits register heeft dat hy liever 
gebruikt dan elk van de andere 3 bits registers: 
zijn dierbare A register. Alle bewerkingen die we nu 
gaan bespreken worden dan ook door* dit register 
uitgevoerd. 

Als we door de lijst met Z8Q mnemomcs (afkortin¬ 
gen, zie deel 1) lopen, lijkt het er soms namelijk wel 
eens op of de Z80 alleen met zijn A register kan 
optellen en aftrekken. Omdat alle aftrekbewerkingen 
(met 8 bits getallen) met het A register moeten 
worden gedaan, hebben de makers van de processor 
het ook met zinvol gevonden om dit in iedere mne- 
monic opnieuw naar voren te brengen. De opdracht 
om (register) B van (register) A af te trekken (in 
het Engels: "to subtract) is dus ook met.... 

SUB A,B 

Maar gewoon: 

SUB B 

omdat toch iedereen weet dat het aftrekken van 8 
bits getallen alleen met het A register kan worden 
uitgevoerd. 

Behalve aftrekken kunnen we natuurlijk ook optel¬ 
len. De optelfunktie heet ADD, ook weer vanwege het 
Engelse werkwoord “to add“ wat (hoe kan het ook 
anders) optellen betekent. 

Ondanks het feit dat de rekenkundige bewerkingen 
op de ZBO na het voorgaande misschien een beetje 
beperkt lijken (omdat ze beperkt zijn tot het A 
register), is de verscheidenheid van zaken die we 
kunnen optellen zeer groot, zoals mag blijken uit 
het volgende overzichtje: 

ADD A,r elk willekeurig 8 bits register 

ADD A,n elk willekeurig 8 bits getal 

ADD A,(HL) elk willekeurig 8 bits getal op het 

geheugenadres dat door HL wordt 
aangewezen. 

ADD A,(IH*d) elk willekeurig 8 bits getal op het 

geheugenadres dat door het index- 
register IH wordt aangewezen. 

ADD A,(IY+d) elk willekeurig 8 bits getal op het 

geheugenadres dat door het nidex- 
register IY wordt aangewezen. 


Met de bovenstaande reeks kunnen we werkelijk 
zeer veel voor elkaar krijgen. In de praktijk is het 
echter ook erg gemakkelijk als we de voigende op¬ 
dracht zouden hebben: 

ADD A,(nn) 

Waarbij “nn“ een willekeurig geheugenadres is dat 
we op het moment dat we het programma schrijven 
al kennen. Deze opdracht bestaat echter niet, zodat 
we dit op de volgende manier moeten doen: 

LD HL.nn 
ADD A,(HL) 

om hetzelfde resultaat te krijgen. Hier ts het weer 
eens duidelijk dat de Z8Q ook een favoriet 16 bits 
register heeft (net als het favoriete 8 bits regi¬ 
ster, het A register), namelijk het registerpaar HL. 
Het is bijvoorbeeld niet mogelijk om een geheugen¬ 
adres te specificeren in het BC of DE registerpaar. 

Een andere beperking van de rekenkundige instruk- 
ties is natuurlnk het feit-dat 8 bits reoisters maar 

«J wf 

tot 255 kunnen tellen. Wie de volgende reeks in- 
strukties geeft: 

LD A,SH80 
ADD A.&HBl 

moet zich er terdege van bewust zijn dat het A re¬ 
gister nu slechts het getal l bevat. Gelukkig is de 
carry vlag gezet om aan te geven dat de uitkomst 
niet in i register ging. maar men moet er wel reke¬ 
ning mee houden. 

Hoe we bij het werken met rekenkundige opdrachten 
op een gemakkelijke manier rekening met de carry 
vlag kunnen houden, zullen we de volgende keer be¬ 
handelen. We zullen dan ook de speciale opdrachten 
bespreken die hiermee verband houden. Tot m deel 
• • 

Jullie mede Z80 fan, ARNOUD 
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Schuifpuzzel 

en 

Matrix rekenen 

Deze beide programma’s -van Albert Vuijk uit Coe- 
vorden- vertonen veel overeenkomsten, maar vanwe¬ 
ge het educatieve karakter van de rekenmatrix en 
de extra ruimte door het ontbreken van de BASIC 
cursus, plaatsen we ze toch beiden, 

DE SCHUIFPUZZEL 



De schuifpuzzel bestaat uit 1G vakken met 1G cijfers, 
welke willekeurig geplaatst zijn. Wanneer je een cij- 
fertoets (1-4) indrukt, gevolgd door een cursor voor 
de richting, dan verplaatst de hele rij -of koiom- 
zich in de aangegeven richting. Het is uiteraard de 
bedoeling de cijfers in de goede volgorde te zetten. 

DE REKENMATRIK 

Bij de rekenmatrix moeten twee getallen worden ge¬ 
combineerd om het juiste getal, dat gevraagd wordt, 
te verkrijgen, Het aantal fouten wordt genoteerd en 
er ts keuze uit: optellen, aftrekken, vermenigvuldigen 
en delen. Er kan ook een maximale getalwaarde wor¬ 
den opgegeven, zodat deze rekenmatrix eveneens ge¬ 
bruikt kan worden voor kleine kinderen. 

Na het oplossen van alle sommen blijft er weer een 
schuifpuzzel over, nu echter met afbeeldingen die in 
rijen van 4 bij elkaar geplaatst moeten worden. 


10 * 
20 - n 
30 • 
40 ? 
50 * 
60 
70 ? 
80 ’ 
90 ‘ , 
100 
110 


$ $ 

* • SUPER SCHUIF * 

t • $ 

* door A.Vuijk * 

* * 

t £ 

# (c)1987 MSX-Gids Amsterdam # 

$ # 

****** t $*%******%*%%% 


120 CLEAR200:DEFINTA-Z:DIMB(4,4):ONS 
TOPGOSUB1490:STOPON 

130 KEYOFF:CLS:SCREEN0:C0L0R15,4,4:W 
IDTH37:FDRI = 1TO10:KEYI,"”:NE X 7 ï: 1 1ME 
=0 


140 LDCATE8,0:PRINT"<SUPER SCHUIFPUZ 
ZEL>” 

150 LDCATE12,1:PRINT"door A.Vuijk” 
160 LOCATE11,2:PRINT"Coevorden 1987” 
170 PRINT 

180 PRINT "Wel kom bij de superschuifp 
uzzei . " 

190 PRINT"Deze schuifpuzzel is af wij 
kend van” 

200 F'RINT"andere schuifpuzzels. Er z 
i jn" 

210 PRINT" 16 vakjes gevuld met ci jfe 
rs van" 

220 PRINT”1 t/m 16. Er omheen staan 
ci jfers" 

230 PRINT"van 1 tot 4." 

240 PRINT"Om deze puzzel te spelen, 
do@ j g 11 

250 PRINT"het volgende:" 

260 PRINT"Je drukt een cijfer en daa 
rna een" 


270 PRINT"cursortoets. De rij van je 
keuze" 

280 PRINT"verplaatst zich in z’n geh 
eel in de" 

290 PRINT"gekozen richting,waarbij h 
et cijfer" 

300 PRINT"dat uit het vierkant zou v 
erdwijnen" 

310 PRINT"er aan de andere kant weer 
tevoor—" 

320 PRINT"sc hij n k omt." 

330 PRINT"Als je klaar bent met. de p 
uz zei " 

340 PRINT"druk je op <RETURN>." 

350 PRINT"VEEL SUCCES!" 

360 PRINTSPACE*(12);"<TOETS>" 

370 DEFUSR=342:U“USR(0) 

380 I$=INKEY$:IFI$=”"THEN3B0 

390 SCREEN2,3,0e COLOR10,10,1: CLS: ORE 

N"GRP:"AS1 

400 PRESET (50,90) , 10 *. COLOR 1: PR I NT# 1, 
"Even geduld a u b" 

410 GOSUB1520 

420 LINE(48,16)-<208,176),5,BF:LINE< 

80,48)-<208,176),7, BF 

430 FORP=48TO208STÈP32 

440 LINE <P,16)-<P,176),1:LINE(48,P-3 

2)—(208,P—32),1 

450 NEXTP 

460 FQRR=1T04:PRESET(R*32+56,28),5:C 

OLOR1:PRINT#1,R:NEXTR 

470 F0RK=1T04:PRESET(56,K*32+28),5:P 

RI NT#1,Ke NEXTK 

4B0 GOSUB1780 

490 LINE(64,178)-(200,190),15,BF:LIN 
E(64, 178) — (200,190),1iB 
500 LINE(64,2)-<200,14),15,BF:LINE(6 
4,2)-(200,14),1,B:BÈ=0:GOSÜB1230 
510 PRESET(68,180),15:COLOR1:PRINT#1 
,"Beginnen maar!":T$="":BE=0 
520 FORAA=1T0150:S0UND7,142:SOUNDS,1 
5:SOUND13,10:SOUND0,AA:NE X TAA: SOUNDS 

,0 

530 DEFUSR=342:U=USR<0) 

540 I$=INKEY*:IFI$=""THEN540 

550 IFI$=CHR$(13)THENGOSUB1270 

560 IFI*<CHR$(49)ORI*>CHR$(52)THEN53 

0 

570 D=VAL(I$):I$=STR$(D) 

580 T$=T$+I$:IFLEN(T$)>2THENGOSUB750 
:GOTO530 

590 LINE(68,180)-(196,188),15,BF 
600 PRESET(68,180),15:COLOR1: PRINT#1 
T$ 

610 DEFUSR=342:U=USR(0) 

620 I*=INKEY$:IFI*=""THEN620 
630 IFI*=CHR*(8)THENGOSUB750:GOTO530 
640 IFI %< CHR$(28)ORI$ >CHR$(31)THEN61 
0 

650 IFI$=CHR$(28)THENI$=" - naar ree 
-hts": VE=1 
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660 IFI*=CHR$(29)THENI*=" - naar lin 
ks":VE=2 

670 IFI$=CHR$(30)THENI$=" - naar omh 
oog":VE=3 

680 IFI$=CHR$ <31)THENI$=" - naar oml 
aag":VE=4 
690 T$=T$+I* 

700 LINE <68,180)-(196,188),15,BF 
710 PRESET< 68,180),15:COLOR1:PRINT#1 

720 ONVEGOSUB770,880,990.1110 
730 GOSUB750 
740 GOTO530 

750 T$="" : LINE < 68,180)-<196,188),15, 

BF:RETURN 

760 'naar rechts 

770 V=B(4,D) 

780 F0RT=176T0255:PUTSPRITEV,(T,D*32 
+16) , 4, V:S0UND7,142:SOUNDS,15: SÓUND0 
,T-176:NEXTT:SOÜNDB,0 
790 F0RR-3T01STEP-1:W=B(R,D):B(R+1,D 
)=B(R,D) 

800 FÓRP—32TO0STEP-1 

810 PUTSPRITEW,((R+l)*32+48-P,D*32+l 
6),4,W:SOUND7,142:SOUNDB,15:SÓUND0,7 
5-P 

820 NEXTP,R:SOUNDB,0 
830 FORT=—32TO80 

840 PUTSPRITEV,(T,D*32+l6),4,V:SOUND 

7,142:SOUNDS,15: SÓUND0, 32+t:NEXTT 

850 B(1,D)=V:SOUNDB,0 

860 BE=BE+1:GOSUB1230:RETURN 

870 'naar links 

880 V=B(1,D) 

890 FORT=80TO-32STEP~1 
900 PUTSPRITEV, (T,D*32+16) ,4, V-.SOUND 
7,142:SOUNDB,15:SÖUND0,32+t:NEXTT:SO 
UND8,0 

910 F0RR-2T04:W=B(R,D):B(R-l,D)=B<R, 
D) 

920 FORP=32TO0STEP—1 

930 PUTSPRITEW,((R-l)*32+48+P,D*32+l 
6),4,W:S0UND7,142:SOUNDS,15:9ÓUND0,4 
0+P 

940 NEXTP,R:SOUNDB,0 

950 F0RT=255T0176STEP-1:PUTSPRITEV,( 

T,D#32+16>,4,V:S0UND7,142:SOUNDB, 15: 

SÓUND0, T-176:NEXTT 

960 B(4,D)=V:SOUNDB,0 

970 BE=BE+1:GOSUB1230:RETURN 

980 'naar omhoog 

990 V=B(D,1) 

1000 FORT=48TO—32STEP—1 
1010 PUTSPRITEV,<D*32+48,T),4,V:SOUN 
D7,142:SOUNDB,15:SOUND0,48-t:NEXTT:S 
0UND8,0 

1020 F0RK=2T04:W=B(D,K):B(D,K—1)=B <D 
K) 

1030 FORP=32TO0STEP-1 
1040 PUTSPRITEW,(D*32+48,<K-1)*32+16 
+P),4,W:S0UND7,142:SOUNDS,15: SOUND0, 
75—P 

1050 NEXTP,K:SOUNDB,0 

1060 FORT =191TO144STEP—1 

1070 PUTSPRITEV, <D*32+4B,T),4,V:SOUN 

D7,142:SOUNDS,15:SOUND0,191-T:NEXTT 

1080 B(D,4)=V:SOUNDB,0 

1090 BE=BE+1:GOSUB1230:RETURN 

1100 'naar omlaag 

1110 V=B<D,4) 

1120 FORT=i44T0191 

1130 PUTSPRITEV,(D*32+4B,T),4,V:SOUN 
D7,142:SOUNDB,15:SOUND0,191-T:NEXTT: 
S0ÜND8,0 

1140 FÖRK=3T01STEP-1:W=B(D,K):B(D,K+ 
1)=B(D,K) 

1150 FÓRP=32TO0STEP-1 


1160 PUTSPRITEW,<D*32+48,(K+l)*32+16 
-P),4,W:SOUND7,142:SOUNDS,15:SOUND0, 
40+P 

1170 NEXTP,K:SOUNDS,0 
1180 FORT—32T04B 

1190 PUTSPRITEV,(D*32+48,T),4,V:S0UN 
D7,142:SOUNDS,15:SOUNDO,48-t:NEXTT 
1200 B(D,1)=V:S0UND8,0 
1210 BE=BE+1:GOSUB1230:RETURN 
1220 'beurten 

1230 LINE(68,4)-(196,12),15,BF 

1240 PRESET < 72,4),15:COLÓR1:PRINT#1, 

USING"Beur ten:####";BE 

1250 RETURN 

1260 'klaar? 

1270 F0RG=1T04:IFB(G,1)=G-1THENNEXTE 
LSE1320 

1280 F0RG=1T04:IFB(G,2)=G+3THENNEXTE 
LSE1320 

1290 F0RG=1T04:IFB(G,3)=G+7THENNEXTE 
LSE1320 

1300 FQRG=1T04:IFB(G,4)=G+11THENNEXT 
ELSEI320 
1310 GOTO1360 

1320 LINE(68,180)-(196,188),15,BF 

1330 PRESET(68,180),15:PRINT#1,"Nog 

niet klaar!!”:FORWA=lTO3000:NEXTWA:G 

OSUB750 

1340 RETURN530 

1350 'klaar! 

1360 I INE(68,180)- (196,188) ,15,BF 
1370 PRESET(68,180),15:COLOR1:PRINT# 
1, " Ge-f el i ci teerd 1 ” 

1380 S0UND7,140:S0UND4,1:SOUNDB,15:F 
0RQ=1T04:F0RI=1T0255:SOUND13,1:SOUND 
0,I:NEXT:S0UND8,15:F0RI=255TÓ1STEP-1 
:SOUNDO,I:NE X T:NE X T :SOUNDB,0 
1390 LINE(68,180)-(196,188),15,BF 
1400 PRESET <68,180) ,15»COLOR1:PRI NT# 
l,"Nog eens? ()/n)" 

1410 DEFUSR=342:U=USR(0) 

1420 I««IIMKEY*! IFI*-" "THEN1420 
1430 IFI %= "J"ORI$="j"THEN1450 
1440 IFI$="N”ORI*="n"THEN1490ELSE141 
0 

1450 ERASEB:TI ME=0 

1460 DINB(4,4): BE=0: GOSUB750:GOSUB12 
30 

1470 PUTSPRITE0, (255,208),4,0 
1480 GOTO480 

1490 CLOSE: SCREEN0 :CLS:COLOR15,4,4:L 
OCATE10,10:PRINT"T O T ZIENS!" 
:FORWA=1TO3000:NEXTWA 
1500 DEFUSR=S<H3E: CLS: U=USR < 0) : KEYON: 
END 

1510 'sprites- inleven 
1520 RESTORE1610 
1530 FORS=0TO15 
1540 FORI=0TO31 
1550 READJ$ 

1560 J=VAL ( "8<H"+J*) 

1570 VPOKEBASE(14)+S*32+I,255 -J 
1580 NEXTI,S 
1590 RETURN 


1600 

'sprit 

es 

dat 

a 






*• 

1610 

DATAFF 

, FF 

, C0 

,C1 

q C*J) 

,C7 

,C1 

,C1 

5 

Cl 

Cl,Cl 

,C3,C7 

,C0 

,ff 

,ff 

, FF 

,ff 

,03 

, 83 

J 

B3 

83, 83 

,83,83 

, 8-3 

, 83 

,C3 

,E3 

,03 

5 FF 

, FF 



1620 

DATAFF 

,ff 

,C0 

, Cl 

,C3 

, C7 

, C4 

,C0 

5 

C0 

C0,C1 

, Co*, C7 

, C0 

5 FF 

,ff 

j FF 

,ff 

,03 

, E3 

!» 

F 3 

33 33 

OO q ww 

, o 0*, 6 o 

,C3 

, 83 

, E3 

, F3 

, 03 

, FF 

, FF 



1630 

DATAFF 

, FF 

,C0 

,C3 

,C7 

,C4 

,C0 

,ci 

5 

Cl 

C0, C4 

,C7,C3 

,C0 

,FF 

5 FF 

, FF 

,ff 

,03 

,C3 

9 

E3 

6 o, E o* 

,C3,C3 

,E3 

, 63 

»F3 

, C3 

,03 

, FF 

, FF 



1640 

DATAFF 

, FF 

,C0 

,C6 

,C6 

,C6 

,C6 

,C6 

5 

C7 

C3, C0 

,C0,C0 

,C0 

,FF 

,FF 

, FF 

,FF 

, 03 

,03 

5 

63 

63, 63 

,63,F3 

, F3 

, 63 

q é) *1^ 

,F3 

, 03 

,ff 

,ff 
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1650 DATAFF,FF,C0, C 7 ,C 7 ,C 6 ,C7,C7,C0, 
C0,C4,C7,C3,C0,FF,FF,FF,FF,03,E3,E3, 
03, E3,F3,33, 33,33, E3, C3,03, FF,FF 
1660 DATAFF,FF,C0,C1,C3,C6,C7,C7,C6, 
C6,C6,C3,C1,C0,FF,FF,FF,FF,03,E3,E3, 
03, C3 5 E3 33 5 33, 33, E3, C3,03< FF, FF 
1670 DATAFF,FF,C0,C3,C3,C0,C0,C0, C3, 
C1,C1,C3,C3,C0,FF,FF,FF,FF,03,F3,F3, 
63, E3,C3,E3,83,83,03,03,03,FF,FF 
1680 DAT AFF, FF, C0, C3, C7, C 6 , C 6 , C3, C7, 
C6,C6,C7,C3,C0,FF,FF,FF,FF,03,C3,E3, 
63,63,C3,E3,63,63,E3,C3,03,FF,FF 
1690 DATAFF,FF,C0,C1,C3,C6,C6,C6,C3, 
Cl,C0,C3,C3,C0,FF,FF,FF,FF,03,C3,E3, 
33,33,33,F3,F3,33,E3,C3,03,FF,FF 
1700 DATAFF,FF,C0,C4,CC,DD,CD,CD,CD, 
CD, CD, CC, DE, C0, FF, FF, FF, FF, 03, 63, F3, 
9B,9B,9B,9B,9B,9B,F3,63,03,FF,FF 
1710 DAT AFF,FF,C0,C4,CC,DC,CC,CC,CC, 
CC,CC,CC,DE,C0,FF,FF,FF,FF,03,13,33, 
73,33,33,33,33,33,33,7B,03,FF,FF 
1720 DATAFF,FF,C0,C4,CC,DC,CC,CC,CC, 
CC,CC,CC,DE,C0,FF,FF,FF,FF,03,73,FB, 
DB,9B,1B,1B,33,63,FB,FB,03,FF,FF 
1730 DATAFF,FF,C0,C4,CC,DC,CC,CC,CC, 
CC, CC,CC,DE,C0,FF,FF,FF,FF,03,73,FB, 
9B,1B,73,73,1B,9B,FB,73,03,FF,FF 
1740 DATAFF,FF,C0,C5,CD,DD,CD,CD,CD, 
CC,CC,CC,DE,C0,FF,FF,FF,FF,03,B3,83, 
B3,B3,B3,FB,FB,33,33,7B,03,FF,FF 
1750 DATAFF,FF,C0,C 4 ,CC,DC,CC,CC,CC, 

CC, CC,CC,DE,C0,FF,FF,FF,FF,03,FB,FB, 
C3,F3,FB,1B,1B,9B,FB,73,03,FF,FF 
1760 DATAFF,FF,C0,C4,CC,DD,CD,CD,CD, 

CD, CD,CC,DE,C0,FF,FF,FF,FF,03,73,F3, 
83,F3,FB,9B,9B,9B,F3,63,03,FF,FF 
1770 ’sprites plaatsen 

1780 A*="":B*=”” 

1790 FORPS=0TO15 
1800 R=RND(-TIME)*4+1 
1810 K=RND(TIME)*4+1 
1820 A$=CHR$(R*10+K+50) 

1830 IFINSTR(B*,A$)<>0THEN1800 
1840 B$=B$+A$ 

1850 B(R,K)=PS 

1860 PUTSPRITEPS,(R*32+48,K*32+16),4 

, PS 

1870 FORX = 1TO150STEF'15: S0UND7, 140jSO 
UND8,15:SOUND13,10:BOUND0,X:NÉXTX: SO 
UND 8 ,0: NEXTF'S 
1880 RETURN 


CONTROLETELLING 
Regel! 10 - 58 
Regel’. 20 - 5B 
Regels 30-58 
Regels 40 - 5B 
Regels 50-58 
Regel; 60 - 5B 
Regels 70-58 
Regels B0 - 58 
Regel! 90-58 
Regels 100 - 58 
Regel: 110 - 58 
Regel! 120 - 181 
Regel*. 130 - 
Regel: 140 - IB 
Regel’. 150 - 140 
Regel! 160 - 222 
Regel: 170 - 145 
Regel: 1B0 - 43 
Regel: 190 - 221 
Regel’. 200 - 227 
Regel: 210 - 88 
Regel: 220 - 155 
Regel: 230 - 100 
Regel: 240 - 54 
Regel: 250 - 196 
Regel: 260 - 139 
Regel: 270 - 150 
Regel: 280 - 121 


Regel: 290 - 64 
Regel: 300 - 63 
Regeli 310 - I 
Regel: 320 - 93 
Regel: 330 - 241 
Regel: 340 - 33 
Regel: 350 - 8 

Regel: 360 - 29 
Regel: 370 - 147 
Regel: 380 - 18 
Regel: 390 - 215 
Regel: 400 - 99 
Regel: 410 - 144 
Regel: 420 - 150 
Regel: 430 - 195 
Regel: 440 - 106 
Regel: 450 - 211 
Regel: 460 - 236 
Regel’. 470 - 199 
Regel: 480 - 149 
Regel! 490 - 130 
Regel: 500 - 46 
Regels 510 - 199 
Regel: 520 - 114 
Regel: 530 - 147 
Regel: 540 - 179 
Regel: 550 - 88 
Regel: 560 - 133 
Regel: 570 - 65 


Regel: 580 - 167 
Regel: 590 - 77 
Regel: 600 - 77 
Regel: 610 - 147 
Regel: 620 - 3 

Regel! 630 - 48 
Regel: 640 - 171 
Regel: 650 - 0 

Regel: 660 - 154 
Regel: 670 - 4 

Regel: 680 - 238 
Regel: 690 - 61 
Regel: 700 - 
Regel: 710 - 77 
Regel: 720 - 44 
Regel: 730 - 139 
Regel: 740 - 
Regel: 750 - 250 
Regel: 760 - 58 
Regel: 770 - 93 
Regel: 780 - 144 
Regel: 790 - 77 
Regel: 800 - 186 
Regel: 810 - 5 

Regel: 820 - 165 
Regel: 830 - 30 
Regel: 840 - 6 

Regel: 850 - 174 
Regel: 860 - 111 


Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 


870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

9B0 

990 


58 

90 

254 

90 

112 

186 

225 

165 

28 

177 

111 

58 

90 

222 

139 

84 

186 

254 

158 

235 

198 

177 

111 

58 

93 

11 

26 

49 

186 

218 

158 

254 

117 

174 


Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel*. 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 


210 - 111 
220 - 58 
230 - 239 
240 - 176 
250 - 142 
260 - 58 
270 - 66 
280 - 68 
290 - 73 
300 - 76 
310 - 236 
320 - 77 
330 - 152 
340 - 176 
350 - 58 
360 - 77 
370 - 134 
380 - 149 
390 - 77 
400 - 191 
410 - 147 
420 - 38 
430 - 13 
440 - 173 
450 - 236 
460 - 156 
470 - 159 
480 - 120 
490 - 214 
500 - 153 
510 - 58 
520 - 234 
530 - 204 
540 - 210 


Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel*. 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Regel: 
Totaal *. 


550 - 245 
560 - 46 
570 - 19 
580 - 75 
590 - 142 
600 - 58 
610 - 194 
620 - 218 
630 - 10 
640 - 206 
650 - 246 
660 - 241 
670 - 208 
680 - 6 
690 - 232 
700 - 193 
710 - 38 
720 - 205 
730 - 169 
740 - 165 
750 - 239 
760 - 189 
770 - 58 
780 - 107 
790 - 28 
800 - 225 
810 - 232 
820 - 6 
830 - 158 
840 - 17 
850 - 238 
860 - 247 
870 - 76 
880 - 142 
23440 


10 * ****************************** 


20 ' * * 

30 ’ * MATRIX-REKENEN * 

40 * * * 

50 ’ * door A.Vuijk * 

60 * * * 

70 ’ * (c)19B7 MSX-Gids Amsterdam * 

80 ' * * 

90 ' * * 


100 ’****************************** 
110 ’ 

120 CLEAR1000:DEFINTA—Z:DlMA(4,4):DI 
MB(4,4):ONSTOPGOSUB1880:STOPON 
130 GOSUB1960:’in t r o 

140 KEYOFF:CLS: SCREEN0 :COLOR15,4,4:W 
IDTH37:FORI=1TO10:KEYI,"":NEXTI 
150 LOCATE0,0,0 

160 PRINT"Dit programma gee-ft rekens 
ommen in":PRINT"de vorm van een matr 
ix. ” 

170 PRINT"Een matrix is een vierkant 
verdeeld":PRINT"in een aantal hokje 
s, waarbij sommen":PRINT"staan.” 

180 PRINT"In een apart hokje komt he 
t antwoord,waarna het juiste hokje i 
n de matrix":PRINT"moet worden opgez 
ocht." 

190 PRINT 

200 PRINT:PRINT:PRINT”Welk type somm 
en wil je maken?" 

210 PRINT:PRINT" 1) optellen 
2) a-f trek ken" 

220 PRINT:PRINT" 3) vermenigvuldig 
en 4) delen" 

230 PRINT: PRINT"Druk maar 1,2,3 o-f 4 

91 

240 DEFUSR=342:U=USR(0) 

250 TE*=INKEYS:IFTE*=""THEN250 
260 TE=VAL(TE*):IFTE<1ORTE>4THEN230 
270 IFTE=3ORTE=4THEN380 
320 OG=l 

330 PRINT:PRINT"Hoe hoog mag het gro 
otste getal":PRINT"zijn? (1-99)"; 

340 DEFUSR=342:U=U8R(0) 

350 INPUTBG 

360 IFBG< =OGORBG >99THEN340 
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370 * opbouw 

380 SCREEN2,2,0:COLOR10,10,1:CLB:ORE 
N"GRP:"AS1 

390 PRESET < 50,90),10:COLOR1: PRINT#1, 
"Even geduld aub" 

400 GOSÜB2450:’SPRITES 

410 LI NE (8,8) - < 39,40) , 8, BF: LI NE < B, B) 

-< 39,40),1,B 

420 LINE<48,16)-(208,176),5,BF:LINE( 

80,48)-<208,176), 7,BF 

430 FORP=48TO208STÈP32 

440 LINE(P,16)—(P,176),1:LINE(48,P-3 

2) -<208,P—32),1 

450 NEXTP 

460 ’getal 1enkeuze en teken 

470 ONTEGOSUB1030,1140,1250,1350:"ge 

tallen 

480 ONTEGOSUB1490,1500,1520,1540: ’ t e 
ken tekenen 

490 FDRR=1T04:K=0:Z=5:GOSUB1560:GOSU 
BI 590:NEXTR 

500 F0RK=1T04:R=0:Z=5:GOSUB1560:GOSU 
BI5901NEXTK 

510 F0RR=1T04: RR=<R*32)+56:KK=8:PRES 
ET < RR,KK>,10*COLOR1:PRINT#1,R:NEX TR 
520 FORK=1T04:RR=32:KK=< K*32)+28: PRE 
SET(RR,KK),10:COLOR1:PRINT#1,K+4:NEX 
TK 

530 PRESET(60,8),10:COLOR1:PRINT#1, " 
R":PRESET(41,28),10:COLOR1:PRINT#1 , " 
K" 

540 ’hoo-fdlus 

550 A$="":B$="":C$="":D*=”": AF=0 :NR= 
0 

560 FORAM=1TO16 
570 R=RND(-TIME)*4+1 
580 K=RND(-TIME/2)#4+1 
590 A$=CHR$<R*10+K+50> 

600 IFINSTR(B*,A$)<>0THEN570 

A 1 (71 <fc -4- 

620 IFA(R,K)<10THENF=4ELSEF=0 

630 PRESET(10+F,20),8:C0L0R15:PRINT# 

1 , A (R, K) 

640 PRESET(4,56),10:COLOR1:PRINT#1, " 
R:":X=20:Y=56 

650*GOSUB1620: RIJ=D:IFD>4THENPRESET< 
X,Y),10:COLOR10:PRINT#1,STRING$ <2,21 
9):GÓTO640 

660 PRESET(4,72),10:COLOR1:PRINT#1, " 
K:":X=20:Y=72 

670’GOSUB1620:K0=D-4:IFD<5THENPRESET 
(X,Y),10:COLOR10:PRINT#1,STRING$(2,2 
19):GÓTO660 

680 IFA(RIJ,KO)=A(R,K)THEN1780ELSE69 
0 

690 PRESET(4,88),10:COLOR1:PRINT#1," 
FOUT" 

700 B$=LEFT$(B*,LEN(B9)-1)lPLAY"V15L 
1403BGEC":FORWA=1TO2000:NEXT:AF=AF+1 
:GOSUB1870:GOTO570 
710 NEXTAM 

720 IFAF<10THENF=4ELSEF=0 


730 PRESET<10+F,20),8:COLOR15:PRINT# 
1, AF: ’ klaar 

740 FORR=0TO4: LINE <R*32+56, 8) - (R*t32+ 
76,15),10,BF:NEXTR 

750 FORK=0TO4:LINE(40,K*32+28)-< 47,K 

*32+36),10,BF:NEXTK 

760 LINÉ(50,18)—(76,46),5,BF 

770 F0RR=1TÓ4:LINE(R*32+52,20)-<R*32 

+76,44),5,BF:NEXTR 

780 FORK=1T04:LINE(52,K*32+20)-(76,K 
*32+44),5,BF:NEXTK 

790 F0RR=1T04:PRESET(R*32+56,28),5:C 
OLOR1:PRINT#1,R: NEXTR 
800 F0RK=1T04:PRESET(56,K*32+28),5:P 
RINT#1,K:NEXTK 

810 FGRR-1T04:PLAY"L1S1O2M7000A":FOR 
WA=1TO200:NEXTWA:NEXTR 
820 LINE(64,178)-(192,190),15,BF:LIN 
E(64,178)-(192,190),1,B 

830 A$=” ... . Je hebt nu d 

e hele matrix a-f.Het aantal -fout 

en vind je in het rode vakje........ 


•840 GOSUB970 

850 A$="....Je mag nu ee 

n puzzeltje maken..... Daarvoor zie j 
e boven en links cijfers staan. 


860 GOSUB970 

870 A$=". .als je een c 

ij-fer drukt en daarna een cursor-toe 
ts, verplaatst zich de rij in de gew 

enste richting." 

880 GOSUB970 

890 A$=".De bedoeling 

is de zeltde -fiquurtjes op één rij 

naast elkaar te krijgen... 

»> 

900 GOSUB970 

910 AS='‘ .Als je klaar 

bent met de puzzel druk je op <retu 

rn>.Als je wilt beginnen druk je 

op < SELECT >." 

920 GOSUB970 

930 A$=".. .Veel succes 

ii..,ii 

940* GOSIJB970. 

950 GOTO850 

960 ’letters printen 

970 H=H+2:IFH= >LEN(A$)-16THENH=1: RET 
URN 

980 PRESET(68,180),15:H$=MID*(AS,H,1 
5) 

990 COL OR1 * PRINT#1,H*:FORWA=1TO200:N 
EXTWA:IS=INKEYS:IF ï $=CHR$(24)THENRET 
URN1010 

1000 LINE(68,180)-(188,188),15,BF:G0 
TO970 

1010 LINE(64,178)—(192,190),10,BF:GO 
TO2580 

1020 ’getal 1enkeuze + 

1030 FORR=1T04 

1040 A(R,0)=0G+(RND(-TIME/2)*((BG-OG 
) / 2 ) ) 

1050 NEXTR 
1060 F0RK=1T04 

1070 A(0,K)=OG+(RND(-TIME)*((BG-OG)/ 
2)) 

1080 F0RR=1T04 

1090 A (R,K> =A (R, 0) +A (0, K) 

1100 IFA(R,K)>BGTHEN1070 

1110 NEXTR,K 

1120 RETURN 

1130 •' getal 1 enkeuze - 

1140 FORR=1T04 

1150 A(R,0)=OG+(RND(-TIME)*(BG-OG)) 
1160 NEXTR 
1170 FORK=lT04 


35 














































tl 


1180 A(0,K)=OG+(RND(-TIME/2)*((BG-QG 
)/2)) 

1190 F0RR=1T04 

1200 A(R,K > =ABS(A (R, 0)-A(0, K)) 

1210 IFA(R,K)<0GTHEN1180 

1220 NEXTR,K 

1230 RETURN 

1240 ’getal 1enkeuze x 

1250 F0RR=1TD4 

1260 A(R,0)=( RND(—TIME)*9)+2 
1270 NEXTR 
1280 F0RK=1T04 

1290 A(0,K)=(RND(—TIME/2)*9)+2 

1300 F0RR=1T04 

1310 A<R,K)=A(R,0>*A(0,K) 

1320 NEXTR,K 

1330 RETURN 

1340 *getal 1enkeuze : 

1350 E=RND(-TIME)*2+1 
1360 ONEGDTO1370,1410 
1370 F0RK=1T04 
1380 A(0,K)=K*2:NEXTK 

1390 SWAPA(0,1),A(0,2):SWAPA<0,3),A( 
0,4) 

1400 GOTO1420 

1410 A(0,1)=3: A(0,2)=41A(0,3)=2!A(0, 
4) =6 

1420 FORR=1TD3STEP2 

1430 A(R,0)=R*24:A(R+1,0)=<R*24)+24 
1440 FORK=lT04 

1450 A <R,K)=A(R,0)/A <0,K):A(R+1,K)=A 
< R+1,0)/ A (0, K) 

1460 NEXTK,R 

1470 RETURN 

1480 'teken tekenen 

1490 LINE(62,20)-(66,44),1,BF 

1500 LINE(52,30)—(76,34),1,BF 

1510 RETURN 

1520 DRAW"BM56,20C1F8E8F4G8F8G4H8G8H 
4E8H8E4”:PAINT < 64,32),1 
1530 RETURN 

1540 LINE(62,20)-(66,24),1,BF:LINE<6 
2,40)-(66,44),1,BF 
1550 RETURN 

1560 RR=(R*32)+52:IFA(R,K)<10THENF=4 
ELSEF=0 

1570 KK=(K*32)+28 
1580 RETURN 

1590 PRESET(RR+F,KK),Z ïCOLOR1s PRINT# 
1, A (R, K) 

1600 RETURN 

1610 ’ i ngave-r outi ne 

1620 T*= '* ” ! PL. AY " V15L1603AB04C#DE " 

1630 DEFUSR=342:U=USR(0) 

1640 I m= INKEY*: IFI N$= " " THEN1640 
1650 IFIN$=CHR$(13)THEN1720 
1660 IFIN$=CHR*(8)THENGOSUB1740 
1670 IFIN$>CHRS <48)ANDIN*<CHR$(57)TH 
ENGOSUB1770EL.SE 1 630 

1680 T$=T*+1 N$: I FL.EN (T*) >2THENT*= " " 
1690 GOSUB1750 

1700 PRESET(X,Y),10:COLOR1:PRINT#1,T 
$ 

1710 GOTO1630 
1720 IFT*=""THEN1630 
1730 RETURN 
1740 T$="" 

1750 PRESET(X,Y),10:COLOR10:PRINT#1, 
STRING$(2,219) 

1760 RETURN1700 

1770 D=VAL(IN$):IN$=STR$(D):RETURN 
1780 C$=CHR*(RIJ * 10+KO+50) 

1790 IFINSTR(D$,C$)<>0THEN690 
1800 D$=D$+C$ 

1810 PRESET(4,88),10:C0L0R8:PRINT#1, 
"GOED” 

1820 B(RIJ,KO)=NR:PUTSPRITEB(RIJ,KO) 

,(RIJ*32+56,K0*32+24),4,NR 


1830 PLAY"V15L1604CEGCEGCEGR1605C. 
1840 NR=NR+1 

1850 FORWA=1TO3000:NEXTWA 
1860 GOSUB1870:GOT0710 
1870 LINE(4,56)-(36,96),10,BF:LINE<9 
,12)-(32,36),B,BF:RETURN 
'1880 SCRÈEN0 ■ CLS: COLOR 15,4,4: L0CATE6 
,10:PRINT"W11 je echt niet verder? ( 
j/n) " 

1890 DEFUSR=342:U=USR(0) 

1900 I$=INKEY*:IFI$=""THEN1900 

1910 IFI$="J"ORI*="j"THENCLOSE:CLS:R 

ETURN200 

1920 IFI$="N"ORI$="n”THEN1930ELSE189 


0 

1930 CLS-.L0CATE8, 10:PRINT"T O T Z I 
E N S '":FORWA=1TO3000:NEXTWA 
1940 DEFUSR1 =?<H3E: CLS: U=USR1 (0) : KEYO 
N: END 

1950 * intro 

1960 SCREEN3,3:C0L0R15,1,1:CLS 
1970 RESTORE2050 
1980 FORS=0TO2 
1990 FORI=0TO31 
2000 READJ« 

2010 J=VAL("&H"+J$) 


2020 VPOKEBASE(19)+S#32+I,J 
2030 NEXTI,S 
2040 ’intro-sprite data 
2050 DATA 00,01,02,04,04,07,04,04,00 
,00,00,39,42,42,42,39,00,80,40,20,20 
,E0,20,24,00,00,00,BC,52,5E,50,8C 
2060 DATA 00,84,84,84,84,84,48,30,00 
,00,00,44,45,45,29,10,00,89,89,89,89 
, 88,88,70,00,00,00, CB, 2C, 28,28, CB 
2070 DATA 00,12,12,12,13,F2,12,E2,00 
,08,08,09,3A,4B,4A,39,00,20,40,80,00 
,80,40,20,00,00,00,94,5A,D2,12,92 
2080 PÜTSPRITE0,(72,80),1,0:PUTSPRIT 
El,(104,80),1,1:PUTSPRITE2,(136,80), 
1,2 

2090 C0=2:OPEN"GRP: ”AS1 

2100 LINE(64,40)—(176,152),4,BF 

2110 FORR=40TO152STEP28 

2120 LINE(64,R)-(176,R),15 

2130 NEXTR 

2140 FGRR=64T0176STEP28 


2150 LINE(R,40)-(R,152),15 
2160 NEXTR 

2170 FORK=1TO10:X=32:Y=4 
2180 RESTORE2420 
2190 FORJ=1T02 
2200 READQ$ 

2210 FORI=0TOLEN(Q*)-1 

2220 PRESET(X + I*32,Y),1:COLORCO: PRIN 

T#1,MID$(Q*,1 + 1,1):FORWA=1TO30: NEXTW 

A 

2230 CO=CO+1:IFCO=15THENC0=2 


2240 NEXTI 
2250 X=16:Y=160 
2260 NEXTJ 

2270 GOSUB2300:GOSUB2360 

2280 I$=INKEY$:IFI$=""THENNEXTK 

2290 CLOSE:RETURN 

2300 F0RR=44T0128STEP28 

2310 F0RP=68T0156STEP28 

2320 PAINT(P,R),CO,15:FORWA=1TO30: NE 

XTWA 

2330 C0=C0+1:IFC0=15THENC0=2 
2340 NEXTP,R 
2350 RETURN 

2360 FORS=152TO40STEP—4 
2370 LI NE (16, S) — (28, S) , CO: LI NE (212, S 
)-(224,S),CO:FORWA=1TO30:NEXTWA 
2380 CÓ=CÖ+1:IFCO=15THENC0=2 


2390 NEXTS 
2400 RETURN 
2410 •' 
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2420 DATA matrix,rekenen 
2430 * 

2440 'sprites 

2450 FORH=0TO3:RESTORE2530 
2460 FORS=0TO3 
2470 FORI=0TO31 
2480 READJ* 

2490 «7=VAL ( ’’8<H"+J$) 


2500 VPOKEBASE <14)+H#4*32+S*32+1 ,J 
2510 NE X TI , S, H 
2520 RETURN 

2530 DATA 20, 40,53, 17,0F, 19, 59, 7F, 5E 
,1F,0C,06,03,01,03,07,04,02,C5,E8,F0 
,9B,9A,FE,7A,F8,30,60,C0,B0,C0,E0 
2540 DATA 03,0F,2F,7F,3F,3F,37,71,61 
,21,01,01,01,03,1F,3F,E0,F4,FE,FF,FC 
, FE, FE,D7,DB,C2,C2,C0,C0,E0,FC,FE 
2550 DATA'1C,3F,3F,C3,DB,DB,C3,FE,FE 
, 37,3B, IC, 0F; 37,33, 40,38, FC, FC, C3, DB 
,DB,C3,7F,7F,EC,DC,38,F0,EC,CC,02 
2560 DATA 00,00,FD,02,07,07,7F,B5,FD 
, FD, 77,88, FF, 00,00,00,00,00, F8,00,01 
,01,FD,BE,FD,E1,01,40,C0,00,00,00 
2570 'spei begin 

2580 PRESET(76,180),10:COLOR1!PRINT# 
1 ,"Begi nnen maar 1 ":T#="": BE=0 
2590 DEFUSR=342:U*USR < 0) 

2600 I*=INKEY* : IFI*=""THEN2600 

2610 IFI$=CHR#(13)THEN3060 

2620 IFI *< CHRS(49)ORI * >CHR*(52)THEN2 

590 

2630 D=VAL(I*):I*=STR*(D) 

2640 T$=T$+I*:IFi EN(T*> >2THENT*- H "ll 
INE(48,178)-(100,190),10,BFsGOT02590 
2650 LINE(48,178)-(208,190),10,BF 
2660 PRESET<4B,180),10:C0L0R1:PRINT# 
1 T$ 

2670 DEFUSR=342!U=USR(0) 

2680 I$=INKE Y*:IFI*="" THEN26B0 

2690 IFI*=CHR*(8)THENG0SUB2810:G0T02 

590 

2700 IFI*< CHR$(28)ORI$>CHR*(31)THEN2 
670 

2710 IFI*=CHR*(2B)THENI*=" - naar re 


chts"!VE=1 

2720 IFI$=CHR$(29)THENI%=" - naar li 
nks"!VE=2 

2730 IFI $=CHR$ (30) THENI $*=" - naar om 
hoog":VE—3 

2740 IFI*=CHR$(31)THENIS=” - naar om 


1aag":VE=4 
2750 T«=T$+I$ 

2760 LINE(48,178)-(20B,190),10,BF 
2770 PRESET(48,180),10!C0L0R1:PRINT# 
1,T* 

2780 ONVEGOSUB2830,2890,2950,3010 
2790 FORWA=1TO1000:NE X TWA:G0SUB2810 
2800 GOTO2590 

2810 T*="":LINE(48,178)-(208,190),10 

,BFlRETURN 

2820 'naar rechts 


2830 V=B(4,D):PUTSPRITEV, (255,209),4 
t V 

2B40 F0RR=3T01STEP-1:W=B(R,D)iB(R+l, 
D)=B(R,D) 

2850 PUTSPRITEW, ((R+l)*32+56,D*32+24 
),4,WiNEXTR 

2860 PUTSPRITEV,(1*32+56,D*32+24),4, 
V!B(1,D)=V 

2870 BE=BE+1:GOSUB3140!RETURN 
2880 'naar links 

2890 V=B(1,D)!PUTSPRITEV,(255,209.), 4 

2900 F0RR=2T04:W=B(R,D)!B(R-l,D)=B(R 
« D) 

2910 PUTSPRITEW,((R-l)*32+56,D*32+24 
),4,W!NEXTR 


2920 PUTSPRITEV,(4*32+56,D*32+24),4, 
V: B(4,D)=V 

2930 BE=BE+1:B0SUB3140!RETURN 
2940 'naar omhoog 

2950 V=B(D,1):PUTSPRITEV,(255,209),4 

2960 F0RK=2T04iW=B(D,K):B(D,K-l)=B(D 
,K) 

2970 PUTSPRITEW,(D*32+56,(K-l)*32+24 

) 4 lij, NtïXTK 

2980 PUTSPRITEV,(D*32+56,4*32+24),4, 
ViB(D,4)=V 

2990 BE=BE+1:G0SUB3140!RETURN 
3000 'naar omlaag 

3010 V=B(D,4):PUTSPRITEV, <255,209),4 
,V 

3020 F0RK=3T01 STEP-1:W=B(D,K)!B(D,K+ 
1)«B(D,K) 

3030 PÜTSPRITEW,<D*32+56,(K+l)*32+24 
),4.WlNEXTK 

3040 PUTSPRITEV,(D*32+56,1*32+24),4, 
V:B(D,1)=V 

3050 BE=BE+1!G0SUB3140:RETURN 

3060 FORK=1T04:N=0 

3070 F0RR=1T04 

3080 G=B(R,K)!N=N+GlNEXTR 

3090 IFN=240RN=280RN=320RN=36THENNEX 

TKELSEPRESET(48,180),10:COLOR1:PRINT 

#1,"Nog niet klaar 1 " t GOTO2590 

3100 PRESET(48,180),10:COLOR1:PRINT# 

1 ,"KI aar in";BÈ;" beurten." 

110 F0RWA=1TO3000:NEXTWA 
3120 CLOSE: SCREEN0 :COLOR15,4,4:CLS:L 
0CATE2,10:PRINT"Wi1 je nog een matri 
X maken? (j/n)” 

3130 G0SUB1890 

3140 IFBE<10THENF=4ELSEF=0 

3150 LINE(9,12)-(32,36),8,BF:PRESET( 

10+F,20), 8 :COLOR1:PRINT# 1 ,BE 

3160 RETÜRN 


CONTROLETELLIM6 Regel 
Regelt 10 - 58 Regel 

Regelt 20 - 58 Regel 

Regelt 30 - 58 Regel 

Regelt 40 • 58 Regel 

Regelt 50 - 58 Regel 

Regelt 60 - 58 Regel 

Regelt 70 - 58 Regel 

Regelt 00 - 58 Regel 

Regelt 90 - 58 Regel 

Regelt 100 - 58 Regel 

Regelt 110 - 58 Regel 

Regelt 120 - 21 Regel 

Regel» 130 - 190 Regel 

Rpgell 140 - 2 Regel 

Regelt 150 - 99 Regel 

Regelt 160 - 30 Regel 

Regels 170 - 135 Regel 

Regelt 100 - 44 Regel 

Regelt 190 - 145 Regel 

Regelt 200 - 85 Regel 

Regelt 210 - 83 Regel 

Regel» 220 - 252 Regel 

Regel» 230 - 78 Regel 

Regel» 240 - 147 Regel 

Regel» 250 - 47 Regel 

Regel» 260 - 234 Regel 

Regel» 270 - 32 Regel 

Regels 320 - 151 Regel 

Regel» 330 - 136 Regel 

Regels 340 - 147 Regel 

Regelt 350 - 14 Regel 

Regelt 360 - 166 Regel 

Regel» 370 - 58 Regel 

Regel» 380 - 214 Regel 

Regel» 390 - 35 Regel 

Regel» 400 - 170 Regel 

Regel» 410 - 83 Regel 

Regelt 420 - 150 Regel 


430 - 195 





440 - 106 

Regel: 

820 

- 

114 

450 - 211 

Regel: 

830 

- 

108 

460 - 58 

Regel: 

840 

- 

104 

470 - 158 

Regel: 

850 

- 

22 

400 - 162 

Regel: 

860 

- 

104 

490 - 244 

Regelt 

870 

- 

48 

500 - 237 

Regel : 

800 

- 

104 

510 - 244 

Regel: 

890 

- 

113 

520 - 216 

Regel: 

900 

- 

104 

530 - 154 

Regel: 

910 

- 

249 

540 - 58 

Regelt 

920 

- 

104 

550 - 175 

Regel: 

930 

- 

250 

560 - 9 

Regelt 

940 

- 

104 

570 - 225 

Regel: 

950 

- 

236 

580 - 225 

Regel: 

960 

- 

58 

590 - 6 

Regelt 

970 

- 

176 

600 - 203 

Regel: 

980 

- 

43 

610 - 17 

Regel: 

990 

— 

220 

620 - 52 

Regel: 

1000 

- 

227 

630 - 148 

Regel: 

1010 

- 

47 

640 - 83 

Regel: 

1020 

- 

58 

650 - 79 

Regel: 

1030 

- 

195 

660 - 108 

Regel: 

1040 

- 

49 

670 - 34 

Regel: 

1050 

- 

213 

600 - 145 

Regelt 

1060 

- 

188 

690 - 184 

Regel: 

1070 

- 

35 

700 - 146 

Regel: 

1080 

- 

195 

710 - 17 

Regel: 

1090 

- 

118 

720 - 96 

Regelt 

1100 

- 

119 

730 - 52 

Regel: 

1110 

- 

76 

740 - 66 

Regelt 

1120 

- 

142 

750 - 32 

Regelt 

1130 

- 

58 

760 - 139 

Regelt 

1140 

- 

195 

770 - 99 

-pgel» 

1150 

- 

210 

700 - 71 

Regel: 

1160 

- 

213 

790 - 236 

Regel: 

1170 

- 

188 

800 - 199 

Regel: 

1180 

- 

42 

810 - 66 

Regel: 

1190 

- 

195 
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Regel 

Regel 

Regel 

Regel 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel: 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 

Regel 


1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1860 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

7080 

2090 


77 

244 

76 

142 

58 

195 

7 

213 

188 

7 

195 

182 

76 

142 

58 

210 

145 

188 

98 

100 

40 

71 

177 

158 
188 
50 
76 

142 

58 

137 

137 

142 

14 

142 

76 

142 

250 
95 
142 
199 
142 
58 

208 

147 

159 
221 
123 
218 

48 

119 

227 

251 

130 
142 
171 
207 

70 
165 
234 

71 

23 

160 

136 
1B 
50 
40 

137 
191 

209 
147 

8 

123 

73 

65 

189 

58 

131 
164 
193 

210 

245 
46 

24 
75 
58 
197 
61 

254 

9 

170 


Regel: 2100 - 124 
Regel: 2110 - 129 
Regel: 2120 - 151 
Regel: 2130 - 213 
Regel: 2140 - 177 
Regel: 2150 - 103 
Regel: 2160 - 213 
Regel: 2170 - 
Regel: 2180 - 23 
Regel: 2190 - 185 
Regel: 2200 - 252 
Regel: 2210 - 255 
Regel: 2220 - 238 
Regel: 2230 - 232 
Regel: 2240 - 204 
Regel: 2250 - 151 
Regel: 2260 - 205 
Regel: 2270 - 181 
Regel: 2280 - 85 
Regel: 2290 - 124 
Regel: 2300 - 109 
Regel: 2310 - 159 
Regel: 2320 - 150 
Regel: 2330 - 232 
Regels 2340 - 81 
Regel: 2350 - 142 
Regel: 2360 - 94 
Regel: 2370 - 4 

Regel: 2380 - 232 
Regel: 2390 - 214 
Regel: 2400 - 142 
Regel: 2410 - 58 
Regel: 2420 - 77 
Regel: 2430 - 58 
Regel: 2440 - 58 
Regel: 2450 - 118 
Regels 2460 - 194 
Regel: 2470 - 210 
Regel : 2480 - 245 
Regel: 2490 - 46 
Regel: 2500 - 118 
Regel: 2510 - 191 
Regel: 2520 - 142 
Regel: 2530 - 218 
Regel: 2540 - 201 
Regel: 2550 - 56 
Regel: 2560 - 205 
Regel: 2570 - 58 
Regel: 2580 - 202 
Regel: 2590 - 147 
Regel: 2600 - 199 
Regel: 2610 - 208 
Regel: 2620 - 153 
Regel: 2630 - 65 
Regel: 2640 - 233 
Regels 2650 - 64 
Regel: 2660 - 52 
Regel: 2670 - 147 
Regel: 2680 - 23 
Regel: 2690 - 88 
Regel: 2700 - 191 
Regel: 2710 - 0 

Regel: 2720 - 154 
Regel: 2730 - 4 

Regel: 2740 - 238 
Regel: 2750 - 61 
Regel: 2760 - 64 
Regel: 2770 - 52 
Regel: 2780 - 69 
Regel: 2790 - 41 
Regel: 2800 - 191 
Regel: 2810 - 237 
Regel: 2820 - 58 
Regel: 2830 - 193 
Regel: 2840 - 77 
Regel: 2850 - 203 
Regel: 2860 - 186 
Regel: 2870 - 237 
Regel: 2880 - 58 
Regel: 2890 - 190 
Regel: 2900 - 112 
Regel: 2910 - 204 
Regel: 2920 - 192 
Regel: 2930 - 237 
Regel: 2940 - 58 
Regel: 2950 - 190 
Regel: 2960 - 84 
Regel: 2970 - 190 
Regel: 2980 - 192 
Regel: 2990 - 237 


Regel: 3000 - 58 
Regel: 3010 - 193 
Regel : 3020 - 49 
Regel: 3030 - 189 
Regel: 3040 - 186 
Regel: 3050 - 237 
Regel: 3060 - 68 
Regel: 3070 - 195 
Regel: 3080 - 158 
Regel: 3090 - 212 
Regel: 3100 - 102 
Regel: 3110 - 40 
Regel: 3120 - 28 
Regel: 3130 - 4 
Regels 3140 - 96 
Regel: 3150 - 25 
Regel: 3160 - 142 
Totaal: 40004 


Nogmaals MAZE 


In het programma MAZE, in de MSH-Gids nummer 12, 
zitten een paar Kleine schoonheidsfoutjes, die de 
spelkwaliteit niet beinvloeden, maar toch even recht¬ 
gezet moeten worden. 

De belangrijkste fout is het ontbreken van de 
hi-score. Hiervoor moet regel 1130 worden gewijzigd. 
Van minder belang zijn de wijzigingen in de regels 
2080, 2340 en 2350, die betrekking hebben op de vel¬ 
den. 

Wij zijn op deze foutjes gewezen door A. Besemboen 
uit Nuenen, die er ons tevens op attendeerde dat 
het niet 'het doolhof’ is maar de doolhof’. De dikke 
gaf hem gelijk en wij hadden dit eigenlijk ook moe¬ 
ten weten, ware het met dat bij een rondvraag 
bleek dat vrijwel iedereen 'het doolhof’ zegt. Nu we¬ 
ten we wel beter. Bedankt voor de reactie. 


113® PRINT” HIrSCORE: "CHF.S f.PEEK (&HD8 
66>+48>CHR$ <PEEK <.&HD867>+43>CHR$ <PEE 
K < &HD86S ) +48 > CHP$ <PEEK <&HD869> +48)CH 
RS <PEEK(&HD86A)+48)”0 LASERS:”STRI 
NOS < 5, 126)CHR$ <1>; 


2080 PRINT” 1! bge! n!de!!!dafgae!!!de! 
n! df b! 1 b! bb! !!!!!! 1!! ! bb! !! 1!!!!!!! b 
b! bb! de! inaaaf ! b! 1! de! 1! b! gaaao! de! bb 
!!!!!!!! b! b! b! !!!!! b! b! b! !!!! ! bb! maa 
f!1!n! b! daaaae! b! n!1!gaao! bb! !!! b!b! 

I » Kt I » I »♦ 

I • (iii | 


2340 PRINT” sraaaaaaaaaaaaaai gaaaaaaa 


aaaaaafb! !!!!!!!!!! 

! !bb!gaaaaaaao! maae 
! b! !!!!!*!!!!!!!!! ! 
aaaaaaao!gaaf!maaaaaaaf!n!bb! ! ! b! ! ! ! 

••«fitK”. 

• • • • • • w f 


! ! b b! !!!!!!!!! ! 
daao!maaaaaaf! bb 
!!!!!!!!b!bb!n!g 


2350 PRINT” — b!!!!!!!!b!!!bb! 1! b!gaf 
! raaaakaakaaao! gaf! b! 1!bb!b!b!b-b! ! ! ! 
!!!!!!!!!! b-b! b! b!bb!b!b!dae!1!gaaaa 
aaf!1!dae!b!b!bdae!n!!!!!b!b!!!?!!n! 
b! ! ! ! ! tl! dae ! ! ! ! ! gaf! b! n! gaaf! ! ! b! ga 

■f i i i i i >• . 

i. • • 4 I I S 


Nogmaals VERSCRIPT 


In de tekstverwerker VERSCRIPT zit een klein 
schoonheidsfoutje bij het gebruik met cassette. Een 
geSAVEde file wordt onder een ander documentnum- 
mer teruggevonden. Geen probleem, maar toch even 
de POKEjes opgeven om dit programma 100X 'schoon’ 
te maken: 

P0KE &HDD7D.0 
P0KE &HDD7E.0 
P0KE &HDD7F.0 
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MSX 

Tele-communicatie 

door R. Altenburg 


PHILIPS MANIER VAN COMMUNICEREN: NMS1255 


Het is een veel voorkomend verschijnsel dat compu¬ 
tergebruikers een groot deel van hun tijd alleen 
doorbrengen. In een schemerlichtje achter een versle¬ 
ten toetsenbord gezeten, doen zij de meest waanzin¬ 
nige dingen, ontstaan uit een dom en dood apparaat: 
de computer. 

De mensen die echt verslaafd zijn, blijken maar al te 
vaak in een isolement te raken, waaruit moeilijk te 
ontkomen is. De enige oplossing is dan een zolder ge¬ 
heel geluiddicht af te timmeren om zodoende alle con¬ 
centratie te kunnen richten op de eigen meesterwer¬ 
ken. Na enige jaren is het resultaat, dat men nog 
steeds waanzinnige dingen maakt en het kontakt met 
enig ander levend wezen heeft verloren. 

Uie het heeft uitgevonden weet ik niet, maar om 
computergebruikers toch tot communicatie te laten 
komen met elkaar, is er een schitterend hulpstuk 
ontworpen: een MODEM. Nu is er eindelijk een manier 
gevonden om via de telefoonlijn kontakt te zoeken 
met andere computers en hun gebruikers, waarbij de 
MOdulator - DEModulator het digitale signaal van de 
computers omzet in analoge telefoonsignalen, die ver¬ 
zonden kunnen worden naar een andere computer met 
modem. 

Een van de fabrikanten die op de in populariteit 
groeiende telecommunicatie inspeelt, is onze nationale 
bekende: PHILIPS. Met de NMS1255 (New Media Sy¬ 
stems) brengt men de communicatie binnen het bereik 
van veel computergebruikers. Lees mee met mijn eer¬ 
ste ervaringen op dit spannende en veelbelovende ge¬ 
bied. 

Bij het openen van de verpakking verschijnen de on¬ 
derdelen van het pakket voor myn nieuwsgierige 
ogen: een cartridge, voorzien van een telefoonsnoer 
met steker, een floppy disk met daarop -als ik het 
etiket mag geloven- het datacommunicatieprogramma 
en een fraai ogend boek met een telefoon erop: dit 
laat niets te raden over. 

Ik ben van nature erg ongeduldig en steek de car- 
tridqe direkt in het eerste vrije slot dat ik op mijn 
VG8235 kan vinden. De schijf gaat erin, de steker 
van de telefoon wordt verwisseld met die van m’n 
nieuwe speeltje (tot groot ongenoegen van meerdere 
huisgenoten) en de netspanning wordt ingeschakeld... 
Alles wat volgt: geen ontploffing. Dat ging in elk ge¬ 
val uitstekend. 

Nu ik zover gekomen ben voel ik me verplicht tot 
het lezen van de handleiding. Deze ziet er vanaf de 
eerste pagina erg goed uit. Als ik even doorlees zie 
ik ook dat haastige spoed zelden goed is: er had een 
geformatteerde disk klaar moeten liggen: laat ik die 
nou net allemaal vol met de nieuwste spelletjes heb¬ 
ben gezet. O.k. de zaak wordt uitgezet en na een 
format van een schijfje begin ik op een meer serieu¬ 
ze manier. 

Het programma kan geinstalleerd worden in Home Of¬ 
fice II. Daar niet iedereen dit heeft, zal ik de uitleg 



beperken tot de normale gang van zaken (waarbij U 
echt niet veel misloopt!). 

Het programma blijkt uit twee hoofdprogramma's te 
bestaan: 

1) DIENSTEN: 

Er is een kaartenbak in de programmatuur opgeno¬ 
men, waarin U de gegevens van alle personen, bedrij¬ 
ven of andere instellingen kunt invoeren en bewaren. 
Aha. vandaar dat schijfje 1 Onder deze gegevens be¬ 
vindt zich onder andere het telefoonnummer, dat U 
in staat stelt softwarematig te bellen, zonder daarbij 
Uw telefoon aan te raken. Overigens is er een moge¬ 
lijkheid om naast de aansluiting voor de modem ook 
een toestel aan te sluiten: het hiervoor benodigde 
aansluitschema is in de handleiding opgenomen. 

De invoer van de gegevens verloopt als in elk kaar- 
tenbakprogramma, met name als In Home Office. Toch 
wordt er een heel duidelijke handleiding gegeven voor 
het invullen van kant 1 en 2 van de kaart, alsmede 
van de technische gegevens, die nodig zyn voor de 
communicatie en per telefoonnummer opgeslagen kun¬ 
nen worden. Dokumentatie is gelukkig met gauw over¬ 
bodig... 

Onder de technische gegevens behoren o.a. de 
BAUD-rates, waarmee gezonden en ontvangen wordt. 
Dit is het aantal bytes, dat per seconde over de lijn 
gestuurd wordt. Er zijn (gelukkig) enkele standaard 
instellingen gekozen, die U handmatig kunt invoeren 
op de kaart. De computer kontroleert hierbij of U 
een geldige instelling invoert. 

Voor dienstencomputers als VIDITEL. PRESTEL en der- 
gelyke is een LOGON-kode nodig. Dit is een reeks com¬ 
mando's, waarmee de verbinding met een bepaalde 
computer tot stand gebracht kan worden. Ook een 
LOGOFF is nodig, zodat de verbinding op een 'nette' 
manier kan worden verbroken. Verder zijn regeleind 
en type instelbaar. U kunt een gewoon telefoonge¬ 
sprek iaten starten door de computer, die dan voor U 
het nummer draait, waarna U zelf het tweede toestel 
van de hoorn moet nemen. Voor V1EWDATA, het bekij¬ 
ken van data in een databank, is een andere instel¬ 
ling nodig. Dit alles wordt echter zeer helder be¬ 
schreven, zodat een beginnende communicator er echt 
goed kan uitkomen. 

De verschillende types telefooncentrales die we te- 

f ienwoordtg kennen, kunnen b:j een star.daardinstel- 
ing problemen geven bij het maken en onderhouden 


39 



































































van de verbinding met een andere computer. Daarom 
zijn enkele additionele codes meegenomen in het pak¬ 
ket, die ervoor zorgen dat U op elk gewenst type 
centrale kunt bellen. Handig! 

Een leuke en zeer bruikbare mogelijkheid is die van 
de ’meeneemtelefoonnummers'. Een hele mondvol, die 
betekent: als U voor Uw werk telefoonnummers nodig 
hebt, die U ook thuis wilt kunnen gebruiken, kunt U 
opgeven welk voorvoegsel (bijvoorbeeld een 0 of een 
kengetal) de nummers moeten krijgen als U vanaf Uw 
werk belt. Met een andere kode kunt U lokaal bellen, 
zodat het kengetal niet gedraaid wordt. Zo hoeft U 
een twee bestanden met nummers aan te leggen, 
kunt een nummer bellen door de kaart op het 
scherm te halen (eventueel met een zoekmethode) en 
voor de optie KIES te kiezen. Er verschijnt een 
scherm met de naam van degene die U belt en via de 
luidspreker hoort U de computer de nummers kiezen. 
Als er verbinding wordt gevonden, zal de computer 
een eventuele LOGON-code sturen en als alles goed 
gaat bent u verbonden met een computer(gebruiker). 

Er is een aantal funktietoetsen die U het leven mak¬ 
kelijker maken, waarvan eentje erg handig is: F2 
zorgt in bijna alle gevallen voor een afdruk van het 
scherm en hoewel deze optie bij grafische schermen 
nog wel eens uit de hand loopt (zeker als er geen 
MSX printer aangesloten is, zoals bij mij het geval 
is), moet ik toegeven dat ik veel plezier van deze 
hardcopies gehad heb. 

U kunt teksten, grafische beelden en ook program¬ 
ma’s versturen of ontvangen. De teksten kunnen bij¬ 
voorbeeld gemaakt zijn in MSX-Text, de grafische beel¬ 
den in het tweede hoofdprogramma: 


2) CARROUSEL: 

U kunt hierin niet alleen zelf beelden ontwerpen, zo¬ 
als in VIDITEL e.d„ maar U kunt ze tijdens datacom¬ 
municatie ook ontvangen en in de carrousel plaatsen, 
waarna U ze voor later gebruik kunt opslaan. Dit be¬ 
spaart tijd en dat is, zo is mij wel gebleken, ook 
hierbij grotendeels gelijk aan geld. 

Het bewerken van beelden kunt U naar eigen smaak 
doen: toevoegen,veranderen of verwijderen op een 
scherm kan gemakkelijk met de bijgevoegde editor. U 
kunt beelden verplaatsen en na de juiste volgorde 
gemaakt te hebben, kunnen ze in een carrousel ge¬ 
toond worden. Dat wil zeggen: de schermen verschij¬ 
nen een voor een op Uw beeld met een door U bepaal¬ 
de tijdsinterval ertussen. 

Ook voor het bewerken van de grafische schermen 
laat PHILIPS in de handleiding niets te wensen over. 
De overige mogelijkheden en beschrijvingen hebben 
betrekking op de twee subprogramma’s, genaamd BE¬ 
WAREN en AFDRUKKEN, waarvan de naam al zegt wat 
de funktie is en waarvan ik U kan zeggen dat U er 
met veel gemak mee zult werken. 

Een laatste mogelijkheid die ik wil noemen is deze: Uw 
eigen computer kan als informatiebron dienen voor 
anderen. U kunt een kaart aanmaken met gegevens 
voor degene die U kan bellen. Deze geeft U met be¬ 
hulp van codes toegang tot Uw schijf met gegevens. 
Hier kan men dan programma’s o.i.d. van lezen, maar 
desgewenst kan een beller er ook op schrijven. Een 
mooie mogelijkheid, die het geheel voor veel mensen 
kompleteert. 


IS 2000 


t 

Ik kan niet nalaten om de eigen databank van PHI¬ 
LIPS te noemen: 152000. Dit is een informatiesysteem 
waarin met name NMS1255 gebruikers boodschappen 
kwijt kunnen, software kunnen laden en beschrijvin¬ 
gen van nieuwe produkten kunnen lezen. Met name de 
nieuwste datacommunicatiesoftware is voorhanden, 
wat een uitstekende service is. Let echter altijd op 
de telefoonkosten: ze lopen echt snel op! 

IS20Q0 biedt met name: 

- een uitgebreide handleiding van de bank, waardoor 
U snel vertrouwd raakt met de manier waarop de 
banken werken. Maak hiervan vooral een afdruk. 

- software, die ondanks het nog kleine aanbod best 
de moeite waard is en gratis te laden is. 

- informatie over datacommunicatie. 

- prikborden, waarop U vragen, antwoorden, aanbie¬ 
dingen en 'gevraagd' items kwijt kunt. 

- software-beschrijvingen van de nieuwste program¬ 
ma’s. 

- beschrijvingen van nieuwe hardware van PHILIPS. 

- en veel andere mogelijkheden, alles trefwoord ge¬ 
stuurd. Maak altijd even een afdruk van de trefwoor¬ 
den. Het is handig ze bij de hand te hebben. 


Concluderend kan ik zeggen, dat dit modem voor mij 
een wereld van nieuwe dingen heeft geopend. Nu was 
ik op dit gebied niets gewend, dus dat is geen won¬ 
der. Ik kijk echter huiverig uit naar de volgende 
PTT-enveloppe, waarin zonder enige twijfel een vette 
rekening zit. In een databank keek ik zelfs 4 uur 
onafgebroken, vanwege de mooie software en informa¬ 
tie die er in stond. 

% 

Voor met name kleine bedrijven is dit een mogelijk¬ 
heid om goedkoop te adverteren in databanken die 
steeds meer 'bezocht' worden door mensen die op wel¬ 
ke manier dan ook communiceren met elkaar. Een 
groeiende mogelijkheid, dat is een feit. Benut U deze! 

Voor de thuisgebruiker ben ik iets minder optimis¬ 
tisch. Men betaalt waarschijnlijk voorlopig teveel 
voor te weinig informatie en software. Ik ben er ech¬ 
ter van overtuigd dat de mogelijkheden en inhoudelij¬ 
ke kwaliteiten van de verschillende databanken zeker 
vooruit zullen gaan en dan kan dit modem, dat bij mij 
zonder enige hapering werkte, een uitkomst zijn ! 

Ik heb geen vergelijkende test gedaan en kan dus 
geen oordeel geven over het wel of niet beter zijn 
dan andere modems. De handleiding is echter erg 
goed en zal elke vergelijking doorstaan. 

Ook weet ik dat dit modem met zijn adviesprijs van 
Fl. 499,-, afzonderlijk opgestart of in kombinatie met 
Home Office II, een aantrekkelijke ontdekkingsreis 
kan starten voor al die mensen die meer willen dan 
een afgetimmerde zolder met dode beelden. Dit leeft!!! 
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REKENEN 

IN 

MACHINETAAL 


Door het ontbreken van de cursus BASIC hebben we 
wat meer ruimte voor listings en dit programma -van 
Michiel Zweistra- is een leuke compensatie omdat het 
aardig aansluit op de cursus machinetaal. Dit pro¬ 
gramma laat enkele rekenkundige bewerkingen zien in 
zowel decimale-, hexadecimale- als binaire vorm. Te¬ 
vens is de opdracht MOD in dit programma opgenomen, 
omdat hierover soms wat onduidelijkheid heerst, We 
missen wel de mogelijkheid om zelf het antwoord op 
de bewerkingen te geven, maar alleen het zien van 
de resultaten van de bewerkingen zal toch het be¬ 
grijpen van de verschillende bewerkingen vergemak¬ 
kelijken. 


iS ' ï******»*»*»**»»»*»«***»»»**| 

3® '* BINAIR * 

40 ’ * * 

50 ’* Door: Michiel Zweistra * 

60 ' * * 

70 ’*(c) 1987 MSX-Gids Amsterdam* 

80 ’ * * 

90 •****************************** 

100 SCREEN 0: VI'DTH 40:KEY OFF:COLOR 
15,1,1:CLS:LOCATE ,,0:POKE&HFCAB,1’c 
apslock 

110 ON STOP GOSUB 950:STOP ON 
120 GOSUB 1180’Uitleg 
130 ON KEY GOSUB 980:KEY(1> ON 
140 ’ Scherm 


150 LOCATE 0,0:PRINT” F1 > Hiermee ku 
nt u waarden voor <BEGIN>”; 

160 PRINT”en <BEVERKING> opgeven.Dit 
kan zowel” 

170 PRINT”decimaal , hexadecimaal al 
s binair” 


180 PRINT”door de letter <D>,<H> of 
<B> in te" 

190 PRINT”tikken bij het begin van h 
et invoeren.” 

200 PR INT”HERSTELLEN kunt u alleen d 
oen door <BS> in te tikken.” 

210 LOCATE 0,7:PRINT” BEGIN BE 

WERKING RESULTAAT”:LOCATE0,8:PRIN 

p. “ I ■ ■ . —— - 


:LOCATE0,10 
220 PRINT” i- 

-1 ’ 

230 PRINT”| 

I BIN. • 
240 PRINT” '— r 

~ 1 - 1 - 1 ’ 

250 PRINT” | 

I | DEC.’ 
260 PRINT” I- 


270 PRINT” | | 

| | HEX.” 

280 PRINT” 1 -» 

» ■ •• 



i_i 


290 ’ karakter inlezen 
300 FOR X=0 TO 7 
310 READ AS:A=VAL(”&b”+AS) 
320 VPOKE BASE(2)+8+X,A 
330 NEXT 

340 ' karakter data's 
350 DATA 00110000 
360 DATA 00110000 


370 DATA 00110000 
380 DATA 00110000 
390 DATA 00110000 
400 DATA 11111100 
410 DATA 01111000 
420 DATA 00110000 
430 ’ inlezen operands 
440 FOR X=0 TO 3:READ LOS(X):NEXT 
450 ’ data operands 
460 DATA ” OR".AND,XOR,MOD 
470 OP=0:LO=0:PO=0:RE=0:PL=361: VPOKE 
PL, 1 

480 GOSUB 740 


490 IS=INKEY$:GOSUB 740:IF IS=”” THE 
N 490 

500 IF ISOCHRS (28> AND ISOCHRS C29) 
AND ISOCHRS <'32 > THEN 490 
510 I = ASC<IS)-27:ON I GOSUB 540,600, 

, , 660 

520 GOTO 490 

530 ’ bewegen pijltje 

540 IF PL=366 OR PL=371 OR PL=381 TH 

EN 570 

550 PL=PL+1:VPOKE PL-1,0:VPOKE PL,1 
560 RETURN 

570 IF PL=368 THEN VPOKE PL,0:PL=371 
:VPOKE PL.l:RETURN 

580 IF PL=371 THEN VPOKE PL,0:PL=374 

:VPOKE PL,1:RETURN 

590 IF PL—361 THEN RETURN . 

600 IF PL=361 OR PL=371 OR PL=374 TH 
EN- 630 

610 PL=PL-1:VPOKE PL+1,0:VPOKE PL,1 
620 RETURN 

630 IF PL=361 THEN RETURN 

640 IF PL=371 THEN VPOKE PL,0:PL=368 

:VPOKE PL,1:RETURN 

650 IF PL=374 THEN VPOKE PL,0:PL=371 
:VPOKE PL,1:RETURN 

660 IF PL<371 THEN LP=(PL-361)X0R7:G 
OTO 710 

670 IF PL=371 THEN LO=LO+l:IF LO=4 T 
HEN LO=0:RETURN 

680 1F PL>371 THEN LP=(PL-374)XOR7:G 
OTO 720 

690 RETURN 

700 'berekening binair getal 

710 0P=0PX0R2~LP:RETURN 

720 PO=POXOR2‘LP: RETURN 

730 ’ gegevens printen 

740 LOCATE 1,11:PRINT RIGHTS f'000000 

00"+BINS(OP),8) 

750 LOCATE 10,11:PRINT LOS(LO) 

760 LOCATE 3,13:PRINT RIGHTS(STRS<OP 
),LEN(STRS(OP))-l)+SPACES(4-LEN(STRS 
(OP))) 


770 LOCATE 3,15:PRINT RIGHTS("00”+HE 
XS(OP),2) 

780 LOCATE 16,13:PRINT RIGHTS(STRS(P 
O),LEN(STRS(PO))-1)+SPACES(4-LEN(STR 
S(PO>)) 

790 LOCATE 16,15:PRINT RIGHTS(”00”+H 
EXS(PO),2) 

800 LOCATE 28, 13:PRINT RIGHTS(STRS<R 
E) , LEN(STRS(RE))-l)+SPACES(4-LEN(STR , 

S(RE))) 

810 LOCATE 28,15:PRINT RIGHTS("00”+H 
EXS(RE),2) 

820 LOCATE14, 11: PRINT RIGHTS("000000 
00"+BIN$(PO),8) 

830 LOCATE 26,11:PRINT RIGHTS("00000 
000"+BI NS(RE),8) 

840 ON LO+1 GOSUB 860,880,900,920 

850 RETURN 

860 RE=OP OR PO 
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870 RETURN 

880 RE=QP AND PO 

890 RETURN 

900 RE=OP XOR-PO 

910 RETURN 

920 IF POO0 THEN RE=OP MOD PO 
930 RETURN 
940 * einde 

950 POKE&HFCAB, 0: SCREEN 0:COLOR 15,4 
,4 

960 END 

970 ’invoer gegevens 

980 MZ$=”Begin:”:C=7:GOSUB 1020 

990 OP=EI: MZ$="Bewerking:”:C=ll:GOSU 

B 1020 

1000 PO=EI 

1010 RETURN 490 

1020 LOCATE 0,21: PRINT MZ$; : A$= INPTJT 
$(1):PR INTAS; : IF INSTR <"DHB”,AS > *0 T 
HEN 1020 ELSE 1=INSTR<”DHB”,A$) 

1030 ON I GOSUB 1040,1080,1120:LOCAT 
E 0,21:PRINT STRINGS<30,32):GOTO 116 
0 

1040 LOCATE C,21:PRINT STRINGS(39,32 
): AS=”” : X=l:LOCATE C,21 
1050 I$=INPUTS <1): IF IS=CHRS<8) THEN 
X=X+(X>1) : LOCATE (POS<0)>C)+POS<0>: 
A$=LEFT$(AS,X):GOTO 1050 ELSE IF VAL 
<IS>=0 AND I$<>”0” THEN 1050 ELSE PR 
INT 1$; : AS=AS+1S:X=X+1: IF X>3 THEN 1 
060 ELSE 1050 

1060 EI=VAL(AS):EI=EI MOD 255 
1070 IS=INPUTS(1) : IF ISOCHRS (13) TH 
EN IF IS=CHRS(8) THEN 1050 ELSE 1070 
ELSE RETURN 

1080 LOCATE C,21:PRINT STRINGS(39,32 
i • y= i • t nr A TT* C ? 1 

1090 IS=INPUTS(1>:IF I$=CHRS<8) THEN 
X=X+(X>1):LOCATE(POS(0)>C)+POS(0):A 
S = LEFT$ (AS, X) : GOTO 1090 ELSE IF ISO 
”0” AND VAL(”&h”+IS)=0 THEN 1090 ELS 
E PRINT IS; : AS=AS+I$:X=X+1: IF X>2 TH 
EN 1100 ELSE 1090 
1100 EI=VAL <”&”+AS) 

1110 IS= INPUTS < 1) : IF ISOCHRS(13) TH 
EN IF IS=CHR$(8) THEN 1090 ELSE 1110 
ELSE RETURN 

1120 LOCATE C, 21:PRINT STRINGS(39,32 
) : X=l:LOCATE C,21 

1130 IS=INPUTS<1):IF I$=CHRS<8) THEN 
X=X+(X>1) : LOCATE (POS(0)>C)+POS(0): 
AS=LEFTS(AS,X):GOTO 1130 ELSE IF IS< 
”0” OR IS>”1" THEN 1130 ELSE PRINT I 
S;:AS=A$+IS:X=X+1:IF X>8 THEN 1140 E 
LSE 1130 

1140 EI=VAL(”&”+AS) 

1150 IS= INPUTS (1) : IF I$OCHRS(13) TH. 
EN IF IS=CHRS <8) THEN 1130 ELSE 1150 
ELSE RETURN 
1160 RETURN 
1170 ’ Uitleg 

1180 PRINT"De computer kent in feite 
maar drie ” 


1190 PRINT”rekenkundige statements d 
ie in BASIC 


1200 
. J I 

PRINT”ook 

voorkomen. 

Deze zijn 

1210 

tl 

PRINT” 


OR 

1220 

tt 

PRINT” 


XOR 

1230 

PRINT” 


AND 

1240 

paar 

PRINT"Met 
andere ” 

deze drie 

en nog een 


1250 PRINT”gespecialiseerde machinet 
aalinstructies” 

1260 PR INT”kan de computer alles uit 
rekenen. ” 

1270 PRINT”Tevens is het statement ’ 
MOD’ in dit 

1280 PRINT”programma opgenomen. De m 
achinetaal- ” 

1290 PRINT”instructies worden niet n 

q p V- V^O Vi ^ 1 ^ 

1300 PRINT"Omdat de MSX-computer uit 
gerust is met ” 

1310 PRINT”een zogenaamde achtbitspr 
ocessor kan ” 

1320 PRINP’de computer alleen getall 
en tussen 0 ” 

1330 PRINT”en 255 verwerken. Grotere 
getallen 

1340 PRINT"hakt de computer in stukj 

M 

Ï3è0 PRINT:GOSUB 1880 

1360 PRINT”Vandaar dat in dit progra 
mma alleen ” 

1370 PRINT”getallen tussen 0 en 255 
gebruikt ” 

1380 PRINT”kunnen worden. Dan nu wat 
uitleg over ” 

1390 PRINT”het programma. ”:PRINT 
1400 PRINT”U krijgt op uw scherm str 
aks een 

1410 PRINT”aantal dingen te zien. Te 
n eerste : ” 

1420 PRINP'De opmerking dat u direct 
getallen kunt” 

1430 PRINT”invoeren door op F1 te dr 
ukken. ” 

1440 PRINT”Ten tweede : twee binaire 
getallen van ” 

1450 PRINT”acht bits met daartussen 
een opdracht. ” 

1460 PRINT"Het derde binaire getal i 
s de uitkomst.” 

1470 PRINT”Boven de eerste twee bina 
ire getallen ” 

1480 PRINT”kunt u een pijltje heen e 
n weer bewegen” 

1490 PRINT"met de cursor—toetsen. Do 
or op de ” 

1500 PRINT”spatiebalk te drukken kun 
t u het bit ” 

1510 PRINT”onder het pijltje ’setten 
’( een maken )” 

1520 PRINT”of ’resetten’( nul maken 
). Als het 

1530 PRINT”pij11je boven de rekenkun 
dige opdracht ” 

1540 PRINT”staat dan word de volgend 

e opdracht 

1550 PRINT”genomen. ” 

1560 GOSUB 1880 

1570 PRINT"Dan nu nog wat over de re 
kenkundige ” 

1580 PRINT”statements. Wanneer je go. 
ed wilt zien 

1590 PR INT”hoe deze werken moet je d 
e twee ” 

1600 PRINT”getallen binair onder elk 
aar zetten.” 

1610 PRINT”Bij ’OR' (nederlands ’of’ 

) zult u dan ” 

1620 PRINT’zien dat het resultaat al 

leen 0 is als " 

1630 PRINT”de onder elkaar staande b 

■j 4-c (7) ^ 

1640 PRINT”zijn. B.V. 10101010 
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OR 01010110 


1650 PRINT" 

1660 PRINT" 

1670 PRINT" 11111110 

1680 PRINT"BiJ ’XOR’(eXclusive OR) 1 
s het " 

1690 PRINT"resultaat alleen een nul 
als de onder " 

1700 PRINT'elkaar staande bits 0 en 
1 of 1 en 0 " 

1710 PRINT”zij n. B. V. 10101010 
1720 PRINT" XOR 11111111 

1730 PRINT" - 

1740 PRINT" 01010101 

1750 PRINT"Bij 'AND' is alleen het r 
esultaat 1 als" 

1760 PRINT"de onder elkaar staande b 
its allebei 1 zijn." 

1770 GOSUB 1880 

1780 PRINT"’MOD' is een apart geval. 

'MOD’ is de " 

1790 PRINT"afkorting van ’ MODULO’ . 
MOD’ is een " 

1800 PRINT"opdracht die uitrekent wa 
t de rest is " 

1810 PRINT"van een deling. D.V.Z. er 
word gekeken " 

1820 PRINT”hoeveel keer het eerste g 
etal gedeeld " 

1830 PRINT"kan worden door het tweed 
e zonder " 

1840 PRINT"breuken. Het resultaat is 
de z.g.n " 

1850 PRINT"deelrest. V.B. 18 MOD 4 i 
s 2 omdat je " 

1860 PRINT"het getal 18 vier keer do 
or 4 kunt " 

1870 PRINT"delen. Je houdt dan 18-<4 
*4)=2 over. " 

1880 PRINT” <Druk •return’> " 

1890 I$=INPUT$ <1> : IF ISOCHR$<13) TH 
EN 1890 ELSE CLS:RETURN 
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SPEL-POKEs en TIPS 


Van Sander en E. Smit ontvingen we een hele waslijst 
met POKE’s en tips. Bij de volgende spellen moet het 
rogramma op tape of disk staan. (In Gids 11 staat 
oé je cartridges moet back-uppen). Typ dit 
programma in en vul hier de Juiste Poke in: 

10 BLOAD M naam" 

20 POKE 

30 DEFUSR s PEEK(64703)*256oPEEK(64704) 

40 A'USR(O) 

SUPER COBRA: POKE 37133, AANTAL LEVENS 
CIRCUS CHARLIE: POKE 35764. AANTAL LEVENS 
ATHLETIC LAND: POKE 36082, AANTAL LEVENS 
KINGS VALLEY: POKE 35619, AANTAL LEVENS 
MAGICAL TREE: POKE 41409, AANTAL LEVENS 
R0LLERBALL: POKE40914, AANTAL BALLEN 
HUNCHBACK: POKE 37166.0 ONEINDIG LEVEN 
OH SHIT: POKE 33300. AANTAL LEVENS 
MERLIN: POKE 54051, AANTAL LEVENS 
HYPER RALLY: POKE 35675.0 en POKE 35676.1 VOOR 
BEGINRANK 1. POKE 35675.1H6 en POKE 35676.4H40 VOOR 
BEGINRANK 640 ENZ. 

Bij de volgende 2 spellen moet bij het bovenstaande 
programma deze regel worden toegevoeqd: 

fcfl R1 P 

YIE AR KUNG FU 2: POKE AH8E95, AANTAL LEVENS 
KNIGHTMARE: POKE &H8AAA, BEGINSTAGE NR. en 
POKE 1H8AAB, BEGINSTAGE NR. -I 

Bij de volgende programma's ts het bovenstaande 
programma niet nodig. 

STARQUAKE: Typ ’L0AD M naam~ en vervolgens 'LIST'. 
Verwijder in de laatste regel ',R‘ en voeg er de 
volgende regels aan toe: 

1000 POKE 37173. AANTAL LEVENS 
1010 SCREEN 2 

1020 DEFUSR*PEEK(64703)+256»PEEK(G4704) 

1030 A-USR(O) 

Run dit programma. 

WIZARDs LAIR: Doe hetzelfde als bij Starquake, maar 
in regel 1000 moeten een of meer van de volgende 
Poke's komen: 

POKE 37240. AANTAL LEVENS 
POKE 37239. BEGINV00RRAAD GOUD 
POKE 37234. AANTAL SLEUTELS 
POKE 37235. AANTAL RINGEN 
POKE 37236. AANTAL DIAMANTEN 

CYBERUN: Typ het volgende programma en run dit: 

10 CLEAR200.&HE6BE: BLOAD"NAAm",R: 

BL0AD"NAAM2",R 

20 BL0AD"NAAM3": P0KE&H9B19.0: DEFUSR*£H87B2: 
A'USR(O) 

30 BL0AD"NAAM4": P0KE&H98D4.0: P0KEiH98DB.0: 
POKE4H98D9.0: DEFUSR*4HE146: A-USR(O) 
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Het was weer zover: een nieuwe Konami. 
Dat leidt hier op de redaktie altijd tot 
verschrikkelijke veldslagen, nog voor¬ 
dat er maar iets gespeeld is. De grote 
vraag is dan: is het nu wel of geen ad- 
venture en wie mag hem testen? In het 
geval van The Maze of Galious hebben 
we voor een gulden middenweg gekozen 
en de test een paar eigen pagina's ge¬ 
geven, maar ik blijf erbij, dat het een 
echt adventure is en eigenlijk in deze 
rubriek thuishoort. 



KNIGHT TYME II 


Naam 
Lev. 
Mach. 
Pri js 


STORMBRINGER 
MASTERTRONICS 
MSX 1&2 64K 
CAS. Fl. 14,95 


Galious is niet de enige opvolger van 
een bekend spel, die onlangs uitge¬ 
bracht is. Ook Stormbringer borduurt 
verder op de avonturen van de Magie 
Knight. Dit spel hebben we in huis ge¬ 
haald naar aanleiding van een brief 
van Jo Vanderwegen ui£ Leuven in Bel¬ 
gië, die -behalve met Octagon Squad, 
zie elders in dit blad- ook met dit ad¬ 
venture in de knoei zit. In dit spel moet 
de Magie Knight het opnemen tegen 
zichzelf: hij is per ongeluk “gecloned“, 
terwijl hij huiswaarts reisde in een 
tweedehands tijdmachine en zijn “alter 
ego'\ Stormbringer genaamd, is er op 
uit hem te vernietigen. Magie Knight kan 
dit van zijn kant niet doen, omdat hij 
dan zichzelf zou doden, dus er zit niets 
anders op dan te trachten zich met 
Stormbringer, voorgesteld door een 
witte wolk, te verenigen. 




Net zoals bij Spellbound en Knight Tyme 
wordt hier weer gebruik gemaakt van 
de Hindimation techniek, hetgeen in¬ 
houdt, dat alle commando's via ven¬ 
sters op het scherm worden opgegeven. 
Aan de ene kant erg gebruiksvriende¬ 
lijk, maar anderzijds vind ik het een 
nadeel, dat je -eenmaal "ingespeeid"-, 
te gemakkelijk over de commando’s gaat 
schuiven en dan vaak de mist ingaat. 

Het begin van het spel is gelokaliseerd 
in een bos rond een kasteel, waarin je 
verschillende personages tegenkomt 
en waar diverse voorwerpen verspreid 
liggen. Die voorwerpen moeten verza¬ 
meld worden en in sommige gevallen ge¬ 
bruikt of aangetrokken. Door bepaalde 
dingen weg te geven of van je af te la¬ 
ten pakken kun je van de aanwezige 
personen items krijgen, 

Het probleem, waar Jo Vanderwegen 
mee zit, namelijk hoe je het kasteel 
binnen moet dringen, heb ik nog niet 
opgelost, maar ik heb wel een vermoe¬ 
den. Er is een kasteeipoort met een 
wacht ervoor. De poort zit dicht en met 
de wacht valt met te praten of te on¬ 
derhandelen. Nu heb ik het idee, dat je 
helemaal niet door die poort naar bin¬ 
nen moet. In het keuzemenu zit een mo¬ 
gelijkheid: CAST SPELL, die weer is on¬ 
derverdeeld in o.a. TRAVEL TO PERSON. 
Bij die personen staan enkele namen, 
die je in de beginvelden niet tegen¬ 
komt. Door ais DISGUISE “Wizard" of 
“White Hitch" te kiezen, ben ik er via 
een tip (die anders onleesbaar is) ach¬ 
ter gekomen, dat je voor het bereiken 
van die personen twee speciale voor¬ 
werpen nodig hebt. Welke voorwerpen 
dat zijn, weet ik niet, maar het lijkt me 


de moeite waard dat uit te zoeken en ik 
hoop, Jo, dat je -als dit de juiste weg 
blijkt te zijn- dit nog even laat weten. 


BEELD 

GELUID 

SPELKWALITE IT 
DOCUMENTATIE 
PRIJS 



TIPS 


SPY STORY 


M.P.van der Molen uit Leusden zit vast 
met dit spel, waarover ik in de vorige 
Gids schreef. Letterlijk, want hij komt 
de gevangenis niet uit. Wei, M.P. hier¬ 
voor heb je een ELIF nodig en het enige 
commando dat je kunt geven, is SRAB 
HGUORHT ELIF. Zorg wel, dat je verder 
niet meer achter de tralies komt, want 
het voorwerp ben je kwijt, zodra je 
buiten staat. Wat de lamp betreft: die 
is best te koop, als je van MI de porte- 
monnaie hebt gekregen, alleen moet je 
niet opgeven: BUY LAMP, maar THGIlr 
HSALF. En dan is het nog zaak deze 
droog over de rivier te krijgen.Suc¬ 

ces verder! Apropos, is er al iemand 
door het hek gekomen???? 
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PENGUIN ADVENTURE 


STAGE 

Dl ST. 

LOCATIe 

SOORT 

1 

483 

LI NKS 

GOED 


328 

RECHTS 

GOED 


237 

WARP>>>>>>>>>>ó 


1 83 

RECHTS 

SLECHT 

2 

381 

LI NKS 

SLECHT 


1 93 

LINKS 

GOED 


75 

RECHTS 

SLECHT 

3 

683 

RECHTS 

SLECHT 


665 

RECHTS 

SLECHT 


401 

RECHTS 

GOED 


93 

LI NKS 

SLECHT 

4 

WATER 



5 

WATER 



6 

335 

LI NKS 

GOED 


2*8 

LINKS 

kerstm. 


1 46 

HARP>>>>>>>>>>>9 

m 

563 

LINKS 

SLECHT 


263 

LINKS 

SLECHT 

a 

WATER 



o 

/ 

ÜA7 
t x/o 

DCniJTC 

♦ M- Wl 1 1 

nnen 

VJUL4/ 


^ n e 

WARF>>>> 

>>>>>>12 


1 81 

LINKS 

GOED 

10 

WATER 



1 1 

HATER 



1 2 

783 

RECHTS 

SLECHT 


481 

LI NKS 

SLECHT 


432 

RECHTS 

GOED 


1 83 

LI NKS 

KERSTM. 

1 3 

361 

Li NKS 

SLECHT 


355 

WARP>>>>>>>>>>! 5 


1 88 

RECHTS 

GOED 


181 

LINKS 

SLECHT 

1 4 

171 

LINKS 

GOED 


37 

RECHTS 

SLECHT 

15 

480 

PECHTS 

GOED 


432 

LINKS 

GOED 

16 

340 

LI NKS 

SLECHT 

1 7 

WATER 



1 8 

440 

LI NKS 

SLECHT 


433 

RECHTS 

GOED 

19 

HATER 



20 

HATER 



21 

984 

RECHTS 

KERSTM. 


850 

LINKS 

SLECHT 


385 

LINKS 

SLECHT 


1 79 

RECHTS 

GOED 



DUUR EN TOGH VERVELEND... 

Naam : HIDNIGHI BROTHERS 

Lev. t SONY 

Mach.: MSX 1*2 16K 

Pri js: RQMPACK P* . 64,-- 


22 

*3 3 

RECHT8 

SLECHT 


966 

RECHTS 

GOED 


835 

links 

GOED 


270 

LI NKS 


23 

HATER 



24 

585 

RECHTS 

GOED 


HPS: Probeer zoveel mogeiijk van de 
gele hartjes te profiteren. 

STAGE 7; In 9 van de 10 gevallen ver¬ 
schijnt er een vleugeltje dat max.5 le¬ 
vens oplevert. 

STAGE 12: Hap Kopen' Als dit niet ge¬ 
beurt, dan ga je aan het einde van sta¬ 
ge 12 Neer naar het begin. 

STAGE 15: Pas op* Vuurballen uit hemel. 

STAGE 24: Hap Kopen! Gebeurt dit niet, 
dan ben je niet op tijd om de prinses 
te redden en zal ze dood zijn. 

DISTANCE= De afstand, waarop een 
Koopman te vinden is. 

LQCATIE= Zit het gat links of rechts van 
het scherm. 

SOORT= Er zijn 2 soorten Koopmannen, 
de slechten zijn 2 x zo duur als de 
goeden. 

HARP= Als je in het gat voor een warp 
Komt, dan moet je de joystick naar 
achteren doen, waardoor je via een 
onderaardse gang naar de aangegeven 
stage gaat. 

HARRY ROBBERTSEN, EDE. 


Op de Nederlandse markt is eigenlijk 
niet zoveel originele Sony software 
verkrijgbaar en als de Kwaliteit van de 
rest net zo is als die van Midmght Bro¬ 
thers, is dat maar goed ook. Het be¬ 
treft hier een een soort dungeon ad- 
venture, dat zien echter afspeelt in 
een flatgebouw, waar twee detektives, 
Jake en Elwood, moeten proberen een 
vermiste heheopter op te sporen. 
Hiertoe moeten Kamers doorzocht wor¬ 
den en als er iets gevonden wordt. 
Komt linKsonder in een apart schermp¬ 
je een deel van een foto tevoorschijn. 
Doel is dan dit hele schermpje vel te 
Krijgen. Het enige aardige is, dat e- 
met 2 spelers gespeeld kan worden. Je 
xunt op een gegeven moment door bewa¬ 
kers in de gevangenis gegooid worden 
en dan kun je -alleen bij de 2 spelers 
optie- door je broer bevnjd worden. 
Bij het spelen met 1 speler met de com¬ 
puter als partner is dit met mogeiijk. 
Verder stelt het spel met zaveei voor: 
via liften zijn een stuk of 12 verGiepm- 
□en te bereiken en te doorzoeken, die 
er allemaal hetzelfde uitzien, op de 
Kleur na, En als het er nu nog mooi uit¬ 
zag....... Kortom, voor deze prijs kun je 

dit beter laten liggen en voor een 
paar gulden meer een Konami kopen. 
Zelfs in de kategorie goedkope softwa¬ 
re is er zat beters te Koop.. 


BEELD : aa 

GELUID : aa 

SPELKWALITEIT: n 
DOCUMENTATIE : aa 

PRIJS : a 
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VOOR 

DE MSX2-YUPPY, 

Naam : 

KINDEREN VAN 


UI ND 

L e v . : 

Infogrames 

Mach. : 

MS K 2 

P r i j s : 

Disk F1 . 9 9, 


Van Ariolasoft Kregen wij dit grafische 
adventure toegestuurd met de volgen¬ 
de jubelbrief erbij: 

"Francois Bourgeon is een van de be¬ 
kendste en succesvolste stripteke¬ 
naars van dit moment. Speciaal zijn se¬ 
rie "De kinderen van de Wind", die tot 
op heden 5 stripboeken omvat, wordt 
doGr iedereen hoog geprezen. Het 
Franse softwarehuis Infogrames heeft 
de rechten om, op basis van de strip¬ 
verhalen, een aantal adventures te 
produceren. Hierbij ziet u het eerste, 
inklusief een stripboek. Over het re¬ 
sultaat zijn we razend enthousiast en 
we wensen u dan ook veel plezier. Wel 
eerst het stripboek lezen en oekijken, 
anders wordt het niks. 0 ja, wegens 
produKtieproblemen vindt u het boek 
achter de verpakking gesealed. De vol¬ 
gende oplage krijgt een kleinere uit¬ 
voering van het boek, in zachte kaft 
(voor stripliefhebbers op zich ai sein 
'must’), die wel in de verpakking past!' 

Klonk allemaal zee^ veelbelovend en 
vooral het feit, dat we zomaar een col¬ 
lector’s item in huis hebben op strip- 
gebied, staat ons wel aan. Het adventu¬ 
re begon al, voordat we nog maar iets 
in de computer hadden geladen met het 
commando: find Infogrames, Bij navraag 
bleek Ariolasoft plotseling te zijn op¬ 
geheven en een woordvoerder van de 
firma AacKosoft wist mij te vertellen, 
dat de titels die door Anola in Neder¬ 
land op de markt gebracht werden nu 
door verschillende distributeurs ver¬ 
spreid gaan worden. Bij het ter perse 
gaan van dit nummer wisten we echter 
nog met door wie, maar wie "Kinderen 
van de Wind" na het lezen van deze re¬ 
censie nog in huis wil halen, zal dat in 
ieder* geval wel kunnen doen, 

Omdat in de brief stond, dat eerst het 
stripverhaal gelezen moest worden, 
had ik dit -samen met het spel- tijdens 
de vakantie meegenomen en al spoedig 
bleek, dat dit duidelijk een strip voor 
de niet al te jeugdigen is. Ouders, die 
enigzins preuts aangelegd zijn, kunnen 
dit beter niet aan het zeer jonge 
kroost te lezen geven. (Misschien kun¬ 
nen ze er zelf ook beter van afblijven). 

Het avontuur speelt zich af vlak voor 
de Franse Revolutie in het troebele mi¬ 
lieu van de "triangulaire" handel: de 
slavenhandel tussen de Bretonse, Afri¬ 
kaanse en Amerikaanse kusten. HOEL, 
een Bretonse matroos, vlucht uit 
Frankrijk omdat hij ten onrechte van 
een misdrijf verdacht wordt. ISA, een 


avontuurlijk meisje dat achteraf een 
gravin blijkt te zijn wiens titel ontsto¬ 
len is, begeleidt hem. Om zijn eer en 
haar titel terug te winnen, reizen ze 
samen deze vreemde wereld af aan het 
einde van de 18e eeuw. Tussen de Bre¬ 
tonse havens en de Afrikaanse kusten 
komen zij verschillende culturen tegen 
en trotseren zij vele gevaren op zoek 
naar de waarheid. Aldus de handleiding. 

Tijd om de disk eens in de computer te 
stoppen en te zien, wat er van het 
mooie verhaal overblijft. De graphics 
zijn inderdaad prachtig en datzelfde 
geldt voor de begeleidende muziek. 
Maar er moet ook gespeeld worden en 
dat gaat niet echt makkelijk. De bedie¬ 
ning is vrij ingewikkeld en daarmee 
gaat de handleiding behoorlijk de mist 
in. Het scherm bestaat uit 3 delen: 

Een grafische gedeelte waar de aktie 
plaats vindt. 

Een klein venstertje linksonder waarin 
de personages afgedeeld worden. 

Het tekstgedeelte waarmee u over de 
aktie beslist. 

Om te kunnen spelen moet je eerst met 
je cursortoetsen, muis of joystick 
naar het bovenste scherm en als daar 
bijvoorbeeld een schip te zien is, druk 
je op de vuurknop of spatiebalk en dan 
worden de personages zichtbaar in het 
schermpje linksonder. Tussen dit per¬ 


sonenvenstertje en het tekstgedeelte 
zitten 2 smalle "zones". Volgens de 
handleiding zou je om van persoon te 
wisselen slechts de cursor op zone 1 te 
hoeven plaatsen en te bevestigen. Men 
vergeet er echter bij te vertellen, 
dat de zones onderling ook weer uit 2 
delen bestaan en dat die delen een af¬ 
zonderlijke funktie hebben. 

Ook in de handleiding weer die verzeke¬ 
ring dat Deel 1 van het stripboek fun¬ 
damenteel is. HaarschijnlijK om kra¬ 
kers te ontmoedigen, want Alfred heeft 
het boek niet gelezen en die kon best 
met het spel overweg. Voor zover dat 
mogelijk is tenminste, want het blijft 
een verward verhaal of je de strip nu 
wel of niet gelezen hebt. En dat ligt 
niet alleen aan de vaak slachte verta¬ 
lingen uit het Frans. 

Van een echt adventure is eigenlijk ook 
geen sprake, omdat je zelf geen invloed 
hebt op het verloop van het verhaal. Je 
Krijgt iedere Keer wat keuzemogelijk¬ 
heden en als je verkeerd kiest, is het 
spel gewoon afgelopen en kun je op¬ 
nieuw beginnen, Er is een save-optie 
aanwezig, dus iedere keer als een 
hoofdstuk succesvol doorlopen is, kan 
men het spel wegschrijven. 

Ondanks het feit, dat het spel vaak 
bleef hangen en dan opnieuw opgestart 
moest worden, waren we al na 2 uurtjes 
uitgespeeld, zwaar teleurgesteld en 
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Qua strip kan ik me voorstellen, dat 
"Kinderen van de Hind" bekroond is met 

Le Grand Prix du Salon 

d’Angouleme, 

maar qua computersoftware is het pu¬ 
re en dure flut, Men zou het aangaande 
de grafische kwaliteiten hoogstens kun¬ 
nen omschrijven als "kunst voor de ge- 

fortuneerda MSX(2)-«r". 


BEELD 

: ff s fi ff ff 

GELUID 

: ff ff ff ff 

SPELKUALITEIT 

; ff ff 

DOKUMENTATIE 

: ff fi s 

PRIJS 

: ff 


blij dat Ne zelf geen 190 piek aan deze 
onzin hadden uitgegeven. Ongeveer hal¬ 
verwege het verhaal was de draad vol¬ 
ledig zoek: een moeder-overste blijkt 
een “vader* 1 te zijn, die een brief 
krijgt van iemand die hem niet kent en 
de speurtocht al heeft opgegeven. De 
helden brullen: "Op naar Santa Domin- 
go ,M en bij het eerstvolgende plaat je 
kom je terecht in Dahomey in Afrika..... 
Hier eindigt het avontuur abrupt en 
blijk je nog eens 199 gulden neer te 
moeten tellen om te zien hoe het af¬ 
loopt. En ik vrees daarna nog eens en 
nog eens, want -zie boven- er zijn al 5 
van die stripboeken uit. 



KRUIDEN ADVENTURE 

Naam : FEUD 

Lev. i Buil dog software 
Mach. : MSY 1 & 2 6*K 

Pri js: CAS. F1. 9 f 95 

Laten we beginnen met een -gedeelte- 
hjke- vertaling van de handleiding zo¬ 
dat de lezers met een beperkte kennis 
van het Engels dit adventure ook kun¬ 
nen spelen, daar de handelingen tij¬ 
dens dit spel afwijkend zijn van wat we 
bij ’normale’ adventures gewend zijn. 

In dit spel speel je de rol van Leanc, 
die tljdens zijn tocht door het konink¬ 
rijk krulden moet verzamelen om to¬ 
verformules te creeren. Door het mi¬ 
xen van daze spreuken Kan je ze tegen 
je tegenstander, de tovenaar Leano- 
ric, gebruiken. Leanonc doet in dit 
spel echter precies hetzelfde om jou 
te vernietigen. En, tijdens het spelen, 
kom je Leanoric dan ook regelmatig 
tegen. 

Het spel kan gespeeld worden met een 
joystick of met het toetsenbord, waar¬ 
bij A*neer, ö*omhoog, (Minks, P-rechts 
en de spatiebalk is schieten. Verder in 
de tekst gebruiken we alleen nog het 
woord vuurknop, dat dan door de key- 
boardfanaten als spatiebalk gelezen 
moet worden. 


MENGEN VAN SPREUKEN: 

Om ae spreuken samen ie stellen moet 
je achter jouw hut bij je ketel (caul- 
dron) gaan staan en met de vuurknop 
door het spreukenboek bladeren. Heb 
je de gewenste spreuk en de daarbij 
behorende kruiden, dan kan de vuur¬ 
knop losgelaten worden en ben je met 
deze formule gewapend. 

FORMULES GEBRUIKEN: 

Om de spreuken actief te maken moet je 
er -uiteraard- mee gewapend zijn (zie 
boven) en hoef je alleen de vuurknop in 
te drukken. Sommige spreuken kunnen 
slechts eenmaal gebruikt worden, ter- 
wijl andere meermalen actief kunnen 
zijn. Meerdere spreuken kunnen nu uit¬ 
gesproken worden door -net als bo¬ 
ven- met de vuurknop door het boek te 
bladeren, 

KRUIDEN VERZAMELEN: 

Dit gaat eenvoudig door naar de plant 
toe te lopen en ervoor te gaan staan. 
Da tovenaar buigt nu en pakt de plant 
op, waarna het kruid -in rood- in het 
boek verschijnt. 

HINTS en TIPS 

1. Je kan de 'leleport’ (ook een spreuk) 
alleen gebruiken als anderen je niet 
kunnen zien en je kan alleen naar je 
eigen hut met deze teleport. 

2. Met de RETURN-toets plaats ja jouw 
spaler in het centrum van hat veld. 


3. Offensieve spreuken (sprites, Firt- 
ball, Lightning) kunnen ontweken wor¬ 
den, maar je kunt zo met aan de aanval 
(of aanvaller) zelf ontkomen. 

t 

4. Dorpsoewoners en reizigers kunnen 
worden veranderd in zombies. Reizi¬ 
gers vind je op de paden en zij ge¬ 
hoorzamen met aan jouw commando's. 
Dorpsbewoners gehoorzamen als zombie 
en bewegen zich in de aangegeven rich¬ 
ting, doch verlaten niet hun eigen ter¬ 
rein. 

5. Het kompas is gericht op Leanoric. 

Zo, en dan nu nog even verder met onze 
ervaring en commentaren op dit spel. 
Hoe alle . nu precies in z’n werk gaat 
is nog niet helemaal duidelijk, want 
Leanoric is in staat om regelmatig 
jouw -moeizaam verzamelde- kruiden te 
laten verdwijnen (misschien met 1 van 
de 12 spreuken*). Moeten we hier dan 
maar weer een kaart tekenen.,.,^ Ik 
vrees van wel, want je kan in dit spel 
heeriijk verdwalen. En hou er dan maar 
vast rekening mee dat het doorlopende 
velden zijn: het uiterst rechtse veld 
gaat over in het linker en met boven en 
onder is het al net zo. De hut en een 
rivier in het linker gedeeite zijn wel 
goede aanknopingspunten. Verder had¬ 
den we ook niet veel tijd. daar we het 
spel vlak voor het verschijnen van dit 
blad in handen kregen, maar het is in 
ieder geval zaker dat het met in een 
kwartiertje uitgeepeeid is. 


Ik weet niet of dit spel ook voor ande¬ 
re computers leverbaar is, maar de 
makers hebben in ieder geval de grafi¬ 
sche- en geluidskwaliteiten van de MS< 
goed benut. De plaatjes zien er prima 
uit en ook de muziek is goed, al gaat 
deze op den duur wel vervelen. Hier 
mis ik dan meteen de mogelijkheid om de 
muziek uit te schakelen, terwijl de ge¬ 
luidseffecten hooroaar blijven. Ook 
fraai zijn de bewegingen van de figu¬ 
ren. 

Uiteraard weer verbazing over de lage 
prijs. Ook hier opnieuw prima kwaliteit 
voor een prikkie. 


BEELD 

GELUID 

SPELKUALI TE I T 
DOCUMENTATIE 
PRIJS 


BB8S 
BBBB 
BBB 
fi ff ff 5 
BB6BB 


Zo, me dunkt dat we weer een aaraig 
eind op weg zijn geholpen met onze ad¬ 
ventures en ik neem afscheid van jullie 
om me stickum nog even op Galious te 
storten. Speel ze en tot de volgende 
MSX-Gids. 

JOCELYN. 
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S07T1MEe 

Bij de softwarerecensies wordt een beoordeling gegeven met sterren, welke de volgende waarden vertegen 
woordigen: 

bsbbb = ZEER GOED bbss = GOED BBfi = REDELIJK as - MATIG a = SLECHT 


SPEL TIPS 

Van Patrick Maessen ontvingen we de volgende PO¬ 
KE’s voor het programma Breakout van Toshiba. Dit 
programma werkt op vrijwel geen enkele machine en 
met deze POKE’s in ieder geval op een paar compu¬ 
ters meer. 


wijzigingen aanbren- 


POKEs plaatsen: 


Voor de MSX-2 zijn deze POKE’s echter nog niet vol¬ 
doende. Op zowel de Philips als de Song MSX-2 komen 
we nu wel verder dan het introbeeld, maar bij het 
begin van het spel gaan deze machines toch weer op 
tilt. Wie geeft de oplossing voor de MSX-2 ? 

Van J.Clermonts en R.Krist kreqen we de volqende 
POKE’s: 

PROTECTOR 

Om levens te verhogen PQKE £H89B9,n 
Om powermeter te verhogen POKE £H8fi46,n 

WHO DARES WINS II 

Verhogen granaten POKE &H847A,n 
Levens verhogen POKE £H847E,n 

FRONTLINE 

Verhogen levens POKE &H80E3,n 


ZIE VOOR MEER POKES EN TIPS PAGINA 43! 



In het blok PAGEC de volgende 
gen: 

POKE &H8802.&HFF 
POKE 4H081UHFO 
POKE &H8818.&HFF 
POKE &H8827.&HFQ 

In blok OBJECT de volgende 

POKE SH8937.&HFF 
POKE XH8C02,iHFC 
POKE &H8D24.&HF0 
POKE 4H8EB1.AHFC 
POKE &H8EB8.&HFF 
POKE 4H9S7B.ÜHFF 
POKE &H9685.&HF0 
POKE iHBCEB.AHFO 


EINDELIJK . . . 

Naam : QBERT 
Lev. : Konami 
Mach.: MSX 1 
‘Prijs: RompacK Fi. 75,= 

Jaren geleden, in de periode van de 
spelcomputers, waren Pacman, Space 
Invaders en Q-Bert wel de bekendste 
spellen, die met de komst van de home¬ 
computers vrijwel direkt voor aeze 
machines leverbaar waren, 

De originele versie voor de MSX werd 
onder de naam ’Humphry’ uitgebracht 
en nu is Konami op de markt gekomen 
met een variant, die Q-Bert heet. Klinkt 
ingewikkeld en dat is het ook. 

Deze Konami versie is geheel vernieuwd 
en lijkt nog maar weinig op de origine¬ 
le versie. Bij deze Q-Bert moet ook 
diagonaal gesprongen worden, maar 
het ’omkleuren’ van de kubussen moet 
nu aan de hand van een voorbeeld ge¬ 
schieden; je moet de blokjes dus in de 
juiste richtingen kantelen en, eenmaal 
correct gekanteld blijven ze ook 
staan. Heb je er vijf op een rij, dan 
kom je in de volgende ronde. Reeds bij 
het opstarten kunnen verschillende le- 
veis gekozen worden en de Game Master 
werkt ook op deze nieuwe cartridge. 


Hat moet ik nog meer zeggen? Een 
topspel met zeer veel speelvelden, 
grafisch prima, leuke muziek, veel bo¬ 
nusrondes, een waanzinnige hoeveel¬ 
heid tegenstanders in de hogere ron¬ 
des en gelukkig ook wat ’hulpmonsters’. 

De handleiding uiteraard weer in vele 
talen behalve Nederlands en -en dat is 
nieuw- een bon om lid te worden van 
een Konami club. Hanneer deze bon op¬ 
gestuurd wordt (met een cheque of een 
postal- money- order) dan krijg je een 
Konami maandblad met hints en tips en 
previews van te verwachten nieuwe 
spellen. Verder informatie over de ma¬ 


kers van de spellen, Kortingen, wed¬ 
strijden en diverse leuke flauwekulle- 
tjes. Al met al een must voor de Kona- 
mifreak. Mijn bon is al op de bus. 

Dan zit ik nog wel met de prijs in mijn 
maag. De Konami’s worden steeds duur¬ 
der. Dat is niet de schuld van Konami; 
nee, de andere spellen worden steeds 
goedkoper. 


BEELD : sass 

GELUID : bbbb 

SPELKWALITEIT: BBfi 
DOCUMENTATIE : bbbb 

PRIJS : BB 
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SERIEUS IN SOFTWARE 


DELTA BASIC 

Hoezo slechts 24 K beschikbaar voor Basic? Met DELTA BASIC maakt u 
programma’s van 100 tot 10.000 K in Basic! 

Waarom nog verdwalen in een bos van GOSUB-routines? DELTA BASIC 
geeft uw MSX-computer de mogelijkheid van PROCEDURES, waarvan u 
zelf een in principe oneindige bibliotheek kunt aanleggen! 

Is uw beeldscherm simpel? Met DELTA BASIC beschikt u over tien ver¬ 
schillende WINDOWS! 

DELTA BASIC verlegt de grenzen van MSX-BASIC. DELTA BASIC kent 
het gebruik van WINDOWS voor een overzichtelijker en efficiënter 
beeldschermgebruik, de CHAIN-mogelijkheid om vanuit een programma 
nieuwe programma’s in te laden met behoud van bestaande variabelen, 
het gebruik van PROCEDURES voor beter en inzichtelijker programme¬ 
ren, en een schat aan extra Utilities waarover elke programmeur reeds 
lang wilde beschikken. 

WINDOWS 

- WINDOW (definieert window; max 10 cegelijk mogelijk) 

- LOCATE (zet cursorpositie binnen window; 10 onzichtbare cursors!) 

- WPRINT (geeft weer binnen window) 

- WINPUT (vraagt input binnen window) 

- CLS (veegt window schoon) 

- FILL (vult window met letterteken) 

- ROLL (rolt inhoud window naar boven.'onder/lmksj'rechts) 

- WRAP (idem; wat aan ene kant verdwijnt, komt aan andere kant terug) 

CHAIN 

- COMMON (legt te bewaren variabelen vast) 

- CHAIN (laadt en runt ander programma, en haalt variabelen terug) 

PROCEDURES 

- DEFPROC (geeft begin procedure aan) 

- ENDPROC (geeft eind procedure aan) 

- PROC (roept procedure aan) 

- SAVEPROC (bewaart procedure op disk'cass.) 

- MERGEPROC (haalt procedure van disk.'cass. en koppelt 'm aan programma) 

- DELETEPROC (wist procedure) 

PLUS... 

- TFILES (overzicht bestanden op cassette) 

- AVERIFY (verifieert BASIC-ASCII bestand op cassette) 

- BVERIFY (verifiëert byte-bestand op cassette) 

- BAUD (selecteert BAUD-ratc voor cassette-saven tussen 900 en 3000) 

- DFILES (geeft inhoud disk inclusief lengtes en vrije ruimte) 

- SETDRIVE (selecteert default drive) 

“ STORESCREEN/RESTORESCREEN (bewaart.'haalt compleet scherm terug) 

- SCREENSAVE (maakt scherm na bepaalde tijd donker tegen inbranden) 

- SCREEN/OFF (zet scherm aan'uic) 

- CLEARSPRITES (wist alle sprites) 

- INIPSG (initieert sound-generator, stopt geluid direct) 

- INIFNK (zet functietoetsen terug op originele waarden) 

- KILLBUF (wist toetsenbord-buffer) 

- GET (pakt eerstvolgende toetsdruk) 

- PAUSE (wachc bepaalde tijd of tot toecsindruk) 

- CAPSON/OFF (zet hoofdletter-mode aan/uit) 

- POL (kijkt of printer on-line staat) 

- DPEEK (geeft de mhoud van 2 geheugenadresscn samen; 0-65536) 

- DPOKE (zet getal 0-65536 in twee opeenvolgende geheugenadressen) 

- LOWERS (verzekert kleine letters in string) 

- UPPERS (verzekert hoofdletters in string) 

- STATUS/LSTATUS (geeft overzicht geheugengebruik) 

- UNNEW (haalt programma terug na NEW) 

- FIND (zoekt.vervangt tekst in BASIC-programma) 

- MOVLIN (verplaatst BASIC-regels) 

- COPLIN (copieert BASIC-regels) 

- CODETODATA (zet geheugeninhoud om in DATA-rcgcIs) 

- LISTGO. LLISTGO (overzicht regelnrs. waar GOSUB's/GOTO's hcenspringen) 

- LISTLIN/LLIST (overzicht regelnrs. waarin GOSUB's/GOTO's voorkomen) 

- LISTPROC/LLISTPROC (overzicht procedures) 

- LISTVAR/LLSTVAR (overzicht variabelen) 

~ LISTTYPE/LLISTTYPE (overzicht vanabelen-typeringen) 

- LISTDATA/LLISTDATA (overzicht regelnrs. met DATA-statemcnts) 

~ LISTUSR/LLISTUSR (overzicht adressen door DEFUSR's aangegeven) 

- LISTPSG'LLISTPSG (overzicht instellingen geluidsgenerator) 

- LISTSOUND/LLISTSOUND (overzicht actuele soundwaarden) 

“ LISTSCREEN/LLISTSCREEN (overzicht SCREEN-waarden) 

- ETC., ETC. 

DELTA BASIC werkt op alle MSX-computers met tenminste 64K geheugen. Het wordt van tevo¬ 
ren in het geheugen geladen, en neemt slechts enkele bytes van de beschikbare BASIC-ruimce af. Al¬ 
le beeldschcrm-opdrachten werken in SCREEN 0, I en 2. DELTA BASIC blijft in het geheugen ook 
na een RESET. Het programma heeft een uitgebreide Nederlandstalige handleiding, met natuurlijk 
een syntax-overzicht van alle nieuwe commando's en functies, en tal van voorbeeldprogramma s. 
DELi A BASIC wordt omstreeks I november 1987 geleverd, en is vanaf heden te bestellen bij uw 
dealer, of rechtstreeks bij Filosoft. Profiteer van een lage prijs voor een prima programma: 

DELTA BASIC disk: f95,- cass.:f89,- 


- DISKIT - 

DE TOOLKIT VOOR DISKETTE-GEBRUIK OP DE MSXCOMPUTER 

• geschikt voor alle MSX-computers (MSXI en MSX2), alle merken diskdrives en alle 
soorten diskettes 

• standaard-functies als formacteren. wissen, naam veranderen, files copiëren 

• snel copiëren hele diskettes (alle sectoren) 

• beveiligen files of hele diskette, desgewenst met een password 

• inhoudsopgave diskettes ook alfabecisch, chronologisch, op grootte en op soort; 
kan op die manier ook op diskette zelf gezet worden 

• mogelijkheid tot het maken van 2 inhoudsopgaven per diskette, waarvan er steeds 
I toegankelijk is 

• terughalen van per ongeluk gewiste files 

• geven van een naam aan de diskecte zelf 

• instellen datum en tijd (ingebouwde klok voor MSXI) 

• uitgebreide informatie per file (o.a. gebruikte sectoren) 

• unieke disk-monitor: laden, veranderen, saven sectoren; toegang tot DIRECTORY 
en FILE ALLOCATION TABLES 

• copiëren van de inhoud van een file naar beeldscherm of printer 

• uitgebreidc print-mogelijkheden 

• kan met meer dan één drive tegelijk werken 

• gebruikersvriendelijk 

• duidelijke handleiding, met veel informatie over het MSX disk-operating system. 

(incl. diskette): f 69,00 

- TASWORD MSX-TWEE - 

De beste (jazeker!) tekstverwerker voor MSX. nu in een geheel nieuwe versie voor MSX-2 com¬ 
puters. Tot 80 kolommen op het scherm en ook op de printer. Vele nieuwe mogelijkheden: hea- 
ders en footers. meerdere pnnts. 'moeilijk' formateren, automatische pagina-nummering, blok¬ 
ken tekst verplaatsen, kopiëren en wissen, vijf kladbloks, achtvoudige 'TAB’-instelling, GOTO 
regelnr., etc. 

Optimaal werken met diskdrives (ook voor 2 drives, automatische back-up van alle teksten, her¬ 
benoemen, saven, laden en wissen van bestanden etc.). 

Vergelijk ook de volgende eigenschappen eens met die van andere tekstverwerkers: 

- volledig Nederlandstalig, d.w.z. zowel het programma als de handleiding 

- werkgeheugen meer dan II0K (i.p.v. 32K) 

- 50 pagina's dik Nederlandstalig handboek, helder geschreven 

- hulppagina met alle mogelijke commando's bereikbaar via I toetsindruk 

- de gebruiker ziet direkt op het scherm, wat er op de printer komt 

- met behulp van de meegeleverde voorbeeldtekst kan de gebruiker binnen het 
kwartier met Tasword aan de slag 

- met mailmerge: (ook voorwaardelijk) afdrukken met gegevens uit databestanden 

- op wezenlijke punten door de gebruiker zelf aan te passen, zodat een 'persoon¬ 
lijke' tekstverwerker kan ontstaan. 

- output is volledig ASCII, dus klaar voor datacommunicatie 

- met de Filosoft servicc-kaart 

- dit programma is het dubbele waard van; disk f 149.00 

- TASWORD MSX - 

DE tekstverwerker voor alle MSX-I computers, werkt ook op MSX-2 (!). en met alle printers. 
Tot 64 karakters per regel op het scherm (!) en op de printer. Geheel Nederlandstalig, met dui¬ 
delijke handleiding en servicekaart. Wist u dat in ieder geval twee Nederlandse computerbladen 
de kopy op Tasword MSX intypen? Dat we aan bedrijven speciale versies van Tasword MSX leve¬ 
ren? cass. (+diskversie) f 95.00 

- ZELF PROGRAMMEREN -- 

HISOFT UITGAVEN •(* *) In Basic programmeren op een MSX heeft zo z'n beperkingen, 
Wanneer de computer sneller en efficiënter moet werken, is het beter direkt in machinetaal, of 
in een hogere programmeertaal zoals Pascal of C te schrijven. 

HISOFT DEVPAC (dis-)Assembler en monitor cass f 79,00 disk f 175.00 

HISOFT PASCAL disk f 175.00 cass f 125,00 

HISOFT C++ disk f 175,00 

- EDUKATIEF- 

GELD, DEELSOM ALFABET, PROCENTEN, WOORDMAKER, TAALBEDRIJF, 
LETTERGRIJPER, ENGLISH WORDS, OPTELLEN TOT 20. OPTELLEN EN 
AFTREKKEN, CIJFEREND VERMENIGVULDIGEN: Edukatieve programma's met 
spelelementen, (ook per 2 stuks op disk: f 44,50) Pri|s per stuk: cass f 34,50 

DRIE-IN-EEN 3 edukatieve programma’s (w.o. Aardrijkskunde met grote scrollende kaart 
van Nederland) op een cassette, samen cass f 34,50 

REDEKUNDIG ONTLEDEN Uitgebrcid edukaoef programma voor de Nederlandse taal. 
Voor kinderen en ouderen, school en thuis. Geen spelletje! cass f 59,00 

- DIVERSEN - 

I TJING Mooie computerversie v.h. Chinese orakel, alleen op disk f 79,00 

BRIDGE Nederlands. ACOL-systeem, om te leren bridgen cass f 49.00 

MSX-64 PLUS Zorgt voor een professionelere (en overzichtelijker) aanblik van uw program¬ 
ma's. MSX-64 +> geeft d.m.v. het nieuwe Basic commando ’FPRINT' 64 tekens per regel op 
screen 2 (dus meer tekst en cijfers per scherm) in uw eigen programma’s. Plus: grote letter- 
routine. Cass.-en diskversie samen op: cass f 34,50 

- INFORMATIE - 

Programma's, gemerkt met 2 sterren (* *) vereisen (enige) kennis van de Engelse caal. Vraag on¬ 
ze gratis folder aan d.m.v. een briefkaartje (o.v.v. MSX) naar: Postbus 1353, 9701 BJ Groningen, 
of telefonisch: 050-137746. Filosoft produkten zijn te koop in de goede computerzaak, maar 
ook rechtstreeks te bestellen: door storting van het bedrag + f 3.S0 verz.kosten op giro 20792 
t.n.v. Filosoft, Groningen. Telefonische bestellingen (+ rembourskosten) worden zo mogelijk 
nog dezelfde dag verzonden. Voor gratis telefonisch advies: vrijdag, Filosoft servicedag' 
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ARCADE ADVENTURE 

Naam : CRUSADER 
Lev. s Eaglesof t 
Mach.? MSX 1&2 64K 
Prijs! CAS. Fl. 34,90 

DISK Fl * 45,00 

Crusader was een rompack van Ponica 
die nu op tape en disk is uitgebracht. 
Het gaat hiet om een combinatie van 
behendigheid, arcade en adventure. In 
de verschillende velden moeten objec¬ 
ten verzameld worden en tegenstan¬ 
ders worden ontweken. Weer andere 
monsters moeten worden verslagen en 
het eerste wat je moet doen is uitzoe¬ 
ken wie je moet aanvallen en hoe dit 
moet gebeuren. In veld 1 moet je b.v. 
minstens een zwaard hebben. De dia¬ 
mant in dat veld schijnt ook belangrijk 
te zijn. Sommige tegenstanders zijn 
heel moeilijk, of in het geheel met te 
verslaan. Met het verzamelen van de 
objecten moet je oppassen. Zo heb ik in 
de eerste ronde eens een Kroon te 
lang laten liggen met ais gevolg dat 
deze verdween en ik verder voor altijd 
in deze ronde bleef hangen. Een reset 
was hier de enige oplossing. 

Heb je alles (of voldoende) dan kom je 
-in ronde 1 met behulp van een paard- 
in het volgende veld wat vele malen 


moeilijker is. Je snapt het zeker ai; 
ronde twee ben ik nog niet doorgeko¬ 
men; ik heb er alleen maar even een 
glimp van mogen opvangen. 

Verder bevat het spel de bekende ele¬ 
menten! wapens, kracht, levens, dia¬ 
manten enz. verzamelen. De Nederland¬ 
se handleiding geeft, gelukkig, enige 
tips. Verder is het een lastig spel 
waarbij vooral het springen enige oe¬ 
fening vereist en waar je echt je tan¬ 
den in moet zetten en dan nog lang ook, 
want het is zeker niet in 1 avondje uit¬ 
gespeeld. 


Het beelo is goed en de geluiden zijn 
aardig, maar wat agressief. Veel spel- 
plezier voor de geduldige speler die 
niet teveel actie verwacht. 


BEELD : aaaa 

GELUID : sas 

SPELKWALITEIT: 
DOCUMENTATIE : snaaa 

PRIJS : aaaa 


SGHUIEPUZJ&EI* 

Naam ; SKOQTER 
Lev. : Eaglesof t 

Mach.i MSX 1&2 64K 
Prijs! CAS. Fl. 34,90 
DISK Fl. 45,00 



Ken je Eggerland 7 Dan hoef je eigenlijk 
niet verder te lezen en, mits je Egger- 
land goed vond, kan je gerust dit spel 
kopen. Het aantal velden en mogelijk¬ 
heden is wel lang niet zo uitgebreid als 
bij Eggerland, maar qua spel zijn er 
veel overeenkomsten. 

Skooter is een mobiele robot die door 
allerlei velden geloodst dient te wor¬ 
den om fruit, en andere fruitmachine¬ 
achtige objecten, in deze velden te 
verzamelen. Hierbij moeten allerlei te¬ 
genstanders ontweken worden. De grap 
bij dit spel zijn de speelvelden. Deze 
bestaan uit blokken en pijlen. Sommige 
van deze blokken kunnen verschoven en 
vaak ook vernietigd worden. Met deze 
blokken moet je doorgangen maken, de 
vijand insluiten en pijlen afdekken. 
Sommige velden zijn zeer eenvoudig en 
weer andere vragen heel wat denkwerk, 
want hier moet alles meteen juist ge¬ 
beuren, anders moet je opnieuw begin¬ 
nen (daarvoor dient de F5 toets: zelf¬ 
vernietiging wanneer je er niet meer 


uitkomt, want je kunt ook je eigen ro¬ 
bot klem zetten!). Er zit geen volgorde 
in de moeilijkheidsgraad. Veld 3 is een 
hoofdpijnveld (ik ben er nog niet door¬ 
heen gekomen) maar veld 4 is weer erg 
eenvoudig, wat ik gehoord heb van spe¬ 
lers die er wel doorgekomen zijn. In 
ronde 7 Kan je een demo krijgen, waar¬ 
bij je je eigen verrichtingen kunt be¬ 
wonderen. Ik ben echter nog niet zover 
gekomen. 


Een zeer leuk spel voor de puzzelaars. 
De beelden zijn prima en het program¬ 
ma bevat zowel muziek als geluidseffec¬ 
ten welke beide uitschakelbaar zijn. Er 
is ook een optie voor monochrome mo¬ 
nitoren! Uiteraard is dit een rustig 
spel. De besturing Kan zowel met joy¬ 
stick als cursors en is erg soepel. De 
handleiding is in het Nederlands. 


BEELD : 5HS 

GELUID : aaaa 

SPELKWALITEIT: sass 
DO C UME NT ATI E : saaa^ 

PRIJS : aaaa 
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TWEE IN EEN 

Naam : Alpharoid 

Lev, : Eaglesoft 

Mach. « MSX 1&2 Ó4K 
Prijs; CAS. Fi. 34,90 

DISK Fl. 45,00 

Zo, dat was weer eens big fun in de va¬ 
kantie met dit programma, dat oor¬ 
spronkelijk door PONYCA op cartridge 
was uitgebracht. Het gaat hier om een 
schietspel, gecombineerd met een 
soort karate vechtspel. Met Alpharoid, 
een soort transformer he-man, moeten 
de BALGQS-robots uitgeschakeld wor¬ 
den. Deze robots variëren van groene, 
oudeaapachtige stuntels tot zeer vei— 
vaarlijke supermonsters met schou- 
dervuilingen en reuze armen, waarbij 
onze eigen vechter afsteekt als de 
dreumes van staal. 

Je raadt het vast al, we hebben het nu 
dus over het vechtonderdeel, dat zich 
ondergronds afspeelt. De besturing kan 
zowel met joystick als met cursor en 
ar zijn verschillende slagen en schop¬ 
pen mogelijk, zoals een hoge stoot, een 
lage stoot, een beenveeg en een hoge 
’kick\ Tevens kunnen salto’s gemaakt 
worden. 

Bovengronds Kan onze robot vliegen en 
kan met verschillende wapens gescho¬ 
ten worden. Hier Krijgen we te maken 
met vliegtuigen, exploderende ’hoof- 
den’, bommen gooiende toestellen en 


schietende sterren. Af en toe ver¬ 
schijnt er een grote gele ster in 
beeld. Pak deze, want dan worden alle 
-op dat moment in het veld aanwezige- 
tegenstanders vernietigd en krijg je 
extra punten. De punten zijn belang¬ 
rijk, want deze zorgen voor extra 
levens. 

De eerste rondes zijn redelijk door te 
Komen en deze moeten dan ook worden 
gebruikt om wapens en extra gevechts- 
items te bemachtigen. Zorg zo snel mo¬ 
gelijk voor: 5-D Sub Beam, High Speed 
Canon, Solid Body en een Super Gear. 
Zonder deze opties is ronde 3 al haast 
niet meer door te Komen en ronde 4 
vergt het uiterste (hier ben ik dus 


maar heel even geweest). Hord je ver¬ 
slagen, dan ben je alle opties kwijt en 
moet je met een eenvoudige laser op¬ 
nieuw beginnen, terwijl je tegenstan¬ 
ders wel op levei 4 (of hogere) capaci¬ 
teit blijven vechten. 

Heer eens een topspei voor de fanaten, 
dat geleverd wordt met een Nederland¬ 
se handleiding. Grafisch goed, geluid 
ook goed, maar gaat op den duur wel 
vervelen. 


BEF. LD : «««« 

GELUI 0 : sa»a 

SPELKWAIITEIT: «*«*» 
DOCUMENTATIE : 55555 

PRIJS : HH 
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VREEMDE PVZthB 

Naam ; JACKLE & Hl DE 
Lev. : Bul 1 dog software 
Mach.; MSX 1 & 2 64K 
Prijs: CAS. Fi, 9,95 

Dit spel heeft twee speelniveaus; 1 bo¬ 
vengronds en 1 ondergronds. Het is een 
soort adventure waarbij -boven¬ 
gronds- van alles gezocht, opgepakt en 
gebruikt dient te worden terwijl on¬ 
dergronds . . . ? Ja, dit is moeilijk te 
beschrijven want ik ben hier nog niet 
ver gekomen. Je loopt hier door aller— 
lei gangen en Kamers, je ontmoet 
vreemde ballen, ketels en potten en het 
is me nog steeds een raadsel wat je 
hier moet doen en hoe je iets moet 
doen. Je Kan schieten, maar dat heeft 
tot nu toe nog geen effect gehad. Ik 
moet wel vermelden dat ik nog lang niet 
in alle kamers ben geweest en ook niet 
weet hoe ik hier moet komen; ik weet al¬ 
leen dat ze er zijn door de verschil¬ 
lende toegangen, waarvan er telkens 
maar 1 open is. 

Dan maar weer terug naar het park bo¬ 
vengronds, daar heb ik in ieder geval 
enkele Kleine resultaten geboekt. 


Hier fiets je rond in een park, waar 
van alles is te vinden. Je kan de voor¬ 
werpen oppakken of laten vallen en je 
kan een overzicht krijgen van de din¬ 
gen die je bij je draagt. Verder zou je 
(volgens de handleiding) nog van alles 
Kunnen doen, maar ook dat heb ik nog 
niet uitgevonden. Hel weet ik dat de 
drie stenen nodig zijn om ondergronds 
te kunnen schieten en de ’Vanishing 
Herd’ moet worden gebruikt om de rots, 
geheel boven in het park, van z’n plaats 
te krijgen zodat je verder naar het 
Noorden kunt. En dat alles omdat er 
vrijwel NIETS in de (Engelse) handlei¬ 
ding te vinden is. Geen hints of tips. Je 


moet het allemaal zelf uitzoeken en 
daar had ik nu net met genoeg tijd 
voor; ook, omdat alles net iets anders 
gaat dan andere soortgelijke spellen. 
Verder ziet het er grafisch best aar¬ 
dig uit en loopt alles best lekker. Mu¬ 
ziek is er niet; alleen een paar slome 
piepjes, De prijs is erg laag en daar 
kun je je geen buil aan vallen; het spel 
is best het proberen waard. 


BEELD : bbbb 

GELUID : a 

SPELKWALITEIT: sil 
DOCUMENTATIE : as» 

PRIJS : s s s B B 
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KNÏGHTMARE XI 

Naam : THE MAZE OF GALIOUS 
Lev. : Konami 
Mach. ! MSX 1&2 64K 
Prijs: Rompack fl, 75,00 


En alweer een cartridge van Konami. 
Ken je Kmghtmare, Goonies en Vampxre 
Killer? Alle ingrediënten uit deze spel¬ 
len zijn terug te vinden in THE MAZE OF 
GALIOUS, het nieuwe arcade adventure 
van Konami, dat weer eens op een Mega- 
rom module is uitgebracht, 

Een schitterend spel, dat er grafisch 
uitstekend uitziet met prima muziek en 
geluidseffecten. Je speelt in teamver¬ 
band met twee hoofdrolspelers: Popo- 
ion en Aphrodite, die het op moeten ne¬ 
men tegen Galious, een snoodaard, die 
eerst Aphrodite had ontvoerd, Nadat 
Popolon haar heeft bevrijd en ze sa¬ 
men terugkeren naar het Kasteel 
GreeK, blijkt dat Galious dit kasteel 
heeft behekst met zijn aanwezigheid 
plus die van talloze van zijn demonen 
en tot overmaat van ramp hun toekom¬ 
stige Paby Pampas gevangen heeft ge¬ 
nomen. 

Hier begint dan eigenlijk het verhaal: 
het kasteel moet heroverd worden en 
de baby bevrijd. Het kasteel bevat 156 
ruimtes, die bevolkt worden door de 
lagere en middenklasse demonen van 
Galious. Hier moeten -al vechtende- 
allerlei items verzameld worden om nog 
10 andere werelden -met in totaal nog 
eens 174 velden- te kunnen bezoeken 
alwaar 10 verschillende demons ver¬ 
slagen moeten worden. 

De waslijst van items is ongewoon lang; 
47 stuks, waarvan een gedeelte in het 
kasteel, verborgen in rotsen, gevonden 
kan worden, De rest van de benodigdhe¬ 
den zijn in de 10 werelden zelf te vin¬ 
den. In deze werelden vind je de dingen 
die absoluut nodig zijn om de monsters 
te verslaan. Verder zijn er grotten 
waar vriendelijke góden en godinnen 
huizen, bij wie -tegen betaling- artike¬ 
len gekocht kunnen worden. Ook zijn er 
in sommige velden grafstenen, waar 
teksten op gelezen kunnen worden, die 


tips geven of bepaalde codes die je 
nodig hebt. Om deze teksten te kunnen 
lezen, heb je een vergrootglas nodig 
en deze teksten zijn nodig om de demo¬ 
nen op te roepen. Komen zij tevoor¬ 
schijn, dan breekt er pas een echte 
puinhoop los. Bij ’Bony Dragon’, in we¬ 
reld 1, vliegen de botten je bij tiental¬ 
len om de oren en Bony zelf gaat er -af 
en toe- nog bij dansen ook. Hoe de de¬ 
monen het beste zijn te verslaan laten 
we je zelf uitzoeken. 

Het spel werkt met 'vitaiity’ en 'expe- 
rience 7 die aangevuld moeten worden 
om op krachten te blijven. Er zijn al¬ 
lerlei tegenstanders die extra expe- 
rience opleveren, maar veel van deze 
vijanden zijn, of geheel niet te ver¬ 
slaan, of slechts tijdelijk uit te scha¬ 
kelen. De handleiding is zeer uitge¬ 
breid en bevat veel illustraties en en¬ 
kele tips om goed van start te kunnen 
gaan. Hier is wel weer wat kennis van 
de Engelse (of Duitse, Franse of Spaan¬ 
se) taal nodig, want de handleiding be¬ 
vat veel noodzakelijke informatie en 
heeft geen hoofdstuk in het Nederlands. 


Doordat het spel zo uitgebreid is zal 
het een behoorlijke tijd gaan duren 
voordat het neiemaal uitgespeeld is. 
Nij hadden (met een valse start, zie 
hieronder) een volle dag nodig om, via 
een klein gedeelte van het kasteel bij 
de eerste wereld te komen en de eer¬ 
ste Demon (Bony dragon) te verslaan. 
Dit Komt dan ook nog omdat de handlei¬ 
ding voor de eerste drie werelden tips 
en informatie geeft. De andere zeven 
zul je zelf moeten vinden en dit zal 
-uiteraard- wel weer steeds moeiiijker 
worden. Zo hebben we aan wereld 2 al¬ 
leen nog maar even mogen ruiken. Het 
blijkt daar reeds dat er heel wat items 
uit het kasteel verzameld moeten wor¬ 
den om in deze tweede wereid iets te 
kunnen doen, En dat verzamelen van die 
extra items zal heel wat meer dan een 
dag kosten. 


Gelukkig heeft het programma een LOAD 
en SAVE optie zodat bij elke vordering 
de resultaten bewaard Kunnen worden, 
Dit gaat erg omslachtig, met veel woor¬ 
den die opgeschreven moeten worden. 
Makkelijker is het om de Game Master 
te gebruiken. Het LOAD en SAVE 
onderdeel van de Game Master is ook 
bruikbaar. Vrijwel alle andere onder¬ 
delen van deze Game Master zijn niet te 
gebruiken. Hii je valsspelen, dan heb je 
andere rompacks van Konami nodig: 

Met Galious in slot 1 en Knightmare in 
slot 2 kunnen de levens van de twee 
hoofdrolspelers op 99 gebracht wor¬ 
den. 

Met Galious in slot 1 en Q-Bert in slot 2 
kunnen de Vitaiity en enkele items op 
een hogere begmstand worden ge¬ 
bracht, Je begint nu met maximale vita- 
iity en 100 pijlen, goudstukken en sleu¬ 
tels. 


Nu is het een kwestie met deze extra’s, 
via enkele save opdrachten, een ster¬ 
kere startpositie te maken. Het helpt 
echter maar weinig, want het spel 
blijft lastig en er zal tussentijds heel 
wat geSAVEd en geladen moeten worden 
om door de velden te komen. Het tus¬ 
sentijds regelmatig saven is ook be¬ 
langrijk om omslachtige omwegen te 
voorkomen. In sommige velden verdwij¬ 
nen af en toe de trappen of worden zo¬ 
maar extra muren geplaatst. Word je 
hier op zo’n plek (b.v. op de trap) aan¬ 
gevallen en teruggeduwd, dan ver¬ 
dwijnt deze trap alsof je er al geheel 
opgeklommen bent en Komt nooit meer 
terug. Heb je de situatie niet gesaved. 
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dan zul je een andere (moeilijke) route 
moeten vinden. 

Maar, zoals al eerder gezegd, zonder 
deze extra cartndges gaat het ook, al 
geven de codes voor het laden van de 
behaalde resultaten nogal wat schrijf¬ 
werk. Ook de liefhebbers van het 
kaarttekenen kunnen hun hart ophalen. 
Het in kaart brengen van het kasteel is 
een enorme klus maar niet geheel 
overbodig (of je moet een fotografisch 
geheugen hebben) want er mogen bijna 
geen kamers overgeslagen worden. Doe 
je dit wel, dan kan het gebeuren dat je 
enkele belangri jke hulpmiddelen laat 
liggen en slechts zeer moeizaam (of in 
het geheel met) verder komt in het 
spel. 

De werelden hoeven niet in kaart ge¬ 
bracht te worden want elke wereld 
heeft ca. 17 velden en met de kaart van 
het spel (ligt in deze werelden) is dit 
best te overzien. Met enkele andere 
voorwerpen is het ook nog mogelijk 
jouw plaats en die van je tegenstan¬ 
der, op de kaart aan te geven. 

Het spel wordt gespeeld met cursor of 
joystick plus enkele andere (funktie? 
toetsen. De besturing loopt erg soepel 
en ook het springen gaat lekker, wat 
bij veel spellen wel anders is. Er is 
door de makers veel aandacht besteed 
aan dit spel, want buiten de fraaie 
beelden en de vele muziekjes en ge¬ 
luidseffecten zijn er ook veel ver¬ 



schillende spelelementen ingeoracht. 
Zo is het een echt adventure, maar 
evenzo een arcade-, behendigheids- en 
strategie spel. Voor elk wat wils, maar 
je moet er wel allemaal van houden, 
want alle elementen komen aan bod. 

Een topspel 1 En het is dan weer eens 
een van die weinige keren dat er hier¬ 
onder bijna overal 5 sterren te vin¬ 
den zijn. En voor zo’n schitterend en 
uitgebreid spel is 75 gulden niet over¬ 
dreven duur. 

Alvast een tip: 


Met 1 van de items (waarschijnlijk de 
harp**) kunnen, door middel van een 
druk op de spatiebalk (dit staat niet in 
de handleiding), alle rotsblokken in een 
veld tegelijkertijd vernietigd worden. 
Blijkt er dan niets te liggen, dan kan 
het veld overgeslagen warden of direkt 
naar een trap of uitgang worden ge 
gaan. 


BEELD : 

GELUID 

SPELKWALITEIT: 
DOCUMENTATlE : 
PRIJS : 


8 9 8 9 B 
8 8 8 8 9 
8 8 8 8 8 
1 3 8 8 8 
8888 



ORIGINEEL . . , 

Naam : OCTAGON SQUAD 
Lev. i Mastertronic 
Mach.: MSX !&2 
Prijs: CAS. Fl. 12,00 

Dit is dan een van de spellen die we op 
verzoek hebben gespeeld en daar heb¬ 
ben we geen spijt van gekregen. Het is 
een heel origineel en moexlijk spel, dat 
er grafisch zeer goed uitziet. Het ver¬ 
zoek kwam van Jos Vander wegen uit Leu¬ 
ven in Belgie. die vroeg hoe hij dit spel 
gespeeld krijgt, want hij snapt er 
mets ven.~... 

Het is de bedoeling, met een soort 
leger ven vliegen en een commandant, 
26 overlevenden van een planeet te 
redden. Het hele zoekwerk speelt zich 
af in een doolhof waar ook nog allerlei 
andere insektachtigen ronddolen. 
Vechten kan niet, het draait hier alle¬ 
maal om tactiek en strategie. Er moe¬ 
ten sleutels worden opgespoord om de 
doolhoven te openen en de gevonden 
’survivors' moeten naar teleports ge¬ 
leid worden. Dit moet gebeuren door de 
verkeerde gangen te blokkeren met 
helpers van je leger of tafels, want de 
’survivors’ dolen wat in het wilde weg 
rond en gaan uit zichzelf overal naar¬ 


toe, behalve naar de teleport. Energie 
is beperkt en moet regelmatig bijge¬ 
tankt worden aan de drinkplaatsen. Dit 
is een spel voor de liefhebbers die 
geen haast hebben en uitermate ge¬ 
schikt om weer eens een gigantisch 
doolhof in kaart te brengen want 
slechts een klem deel van de gangen is 
in het beeld zichtbaar. 

De gehele besturing vindt plaats d.m.v. 
een ikonenmenu en iedere 'man' van het 
leger kan slechts 3 objecten meedra¬ 


gen. Grafisch en als spel een schitte¬ 
rend programma maar vrijwel zonder 
geluid (ween zo’n Spectrum spei met 
piepjes). Kennis van Engels is gewenst 
om de handleiding en introschermen te 
begrijpen. Een aanrader 1 

BEELD : bsbbs 

GELUID : a 

SPELKWALlTEIT: im 
DOCUMENTATIE : mi 

PRIJS : urn 
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TURBO 5000 

Naam : TURBO 5000 
Lev. : RobteK Nederland 
Mach. : HSX 1 & 2 
Prijs: Rompack Fl. 99,= 

Laat ik beginnen met een beknopt overzicht van de moge¬ 
lijkheden van deze cartridge: 

HARBCOPY: Drukt elk aktief beeldscherm af op de printer. 
Routines voor alle 9 HSX schermen. Tekstschermen 0 en 1 
naar elke printer; grafische- en multicolorschermen naar 
MSX- IBM- en Epson compatible printers. Drie snelheden en 
zestien grijstinten, 

TURBQLOAD; Snel iaden en saven voor cassette tot 4600 
baud. 

9 

BACK-UP; Zet mcode programma’s, ook headerless, over van 
tape naar tape en van tape naar disk. 

OLD: Herstelt een BASIC programma na een ’NEW’ of ’RESET’. 

TAPEDIRECTORY: Overzicht van alle programma’s op tape met 
naam, soort programma en alle adressen. 

DISKUTILITIESi Herkennen alle 8 MSX-disk en MS-DOS forma¬ 
ten? enkel- en dubbelzijdig op 3", 3.5" en 5.25" drives. 

FILESRECÜVERY: Zet gewiste programma's weer op disk, au¬ 
tomatisch na het intoetsen van de naam? zonder gevaar 
voor andere files. 


Geeft alle formatteringsgegevens, de bootsector, de Fat, 
de directory en de datasectoren. Geeft ook de verborgen 
files op de disk en verandert de naam van de disk naar 
wens. 

Zo, een hele waslijst met mogelijkheden op 1 cartridge, die, 
in de meeste gevallen in de machine kan blijven zitten zo¬ 
dat alle programma’s direct te gebruiken zijn. Tot nu toe 
waren deze mogelijkheden alleen maar realiseerbaar met 
verschillende programma’s die dan ook nog, elke keer dat 
ze nodig waren, opnieuw opgestart moesten worden. 

Sommige onderdelen hebben wel wat beperkingen of nade¬ 
len. Zo is, zolang de cartridge in de machine zit, slechts 
16K beschikbaar in BASIC. Het hardcopy gedeelte is extra 
bijzonder, omdat ook de schermen van de MSX-2 kunnen 
worden afgedrukt, maar van de 256- of 512 beeldpunten 
worden er slechts 240 resp. 480 afgedrukt en dat is 
jammer. Daar staat weer als pluspunt tegenover dat het 
programma zelf uitzoekt welk scherm actief is en dus wordt 
afgedrukt. 

Leuk is de tape naar tape copieermogelijkheid. Nu kunnen 
programma’s op hoge snelheid op cassette worden gezet, 
zodat zeer snel geladen kan worden (aardig voor spellen 
die vaak worden gespeeld en waarbij het laden erg lang 
duurt). Dit werkt echter vrijwel alleen bij gebruik op de¬ 
zelfde recorder ais waarop is opgenomen. De geringste af¬ 
wijking in de stand van de kop laat, bij deze hogere snel¬ 
heden, het programma de mist ingaan; voor de krakers dus 
niet bruikbaar. Het backup programmadeel is gewoon de 
bekende SPEED5AVE 4000, Een uitstekend onderdeel voor 
eigen gebruik; voor krakers niet interessant vanwege het 
geschuif met adressen en het overschrijven van BASIC 
loaders. De krakers zullen wel teleurgesteld zijn dat dit 
programma niet aan de hooggespannen verwachtingen vol¬ 
doet; alle anderen kunnen er hun hart aan ophalen. 


FILESDIRECTORY; Namen, lengtes, datums, adressen en le 
sector van alle files. 

FILES PER NAAM; Alle gegevens en sectorgebruik per pro¬ 
gramma op elk moment op te vragen via het submenu? datum, 
tijd, lengte, soort enz. 

FILES SORTEREN; Alfabetisch op naam sorteren van alle 
programma’s en in een nieuwe directory weer naar disk 
schrijven. Keuze in sorteren. 

DEFAULT DRIVEiStelt naar keuze een andere defaultdrive in 
voor alle in- en uitvoer naar disk, zoals onder MSX-DOS. 

VERIFY ON: Controleert alle schrijf en lees opdrachten 
naar en van disk. 


Het FILESRECQVERY onderdeel is, net als bij DISKIT van Fi- 
losoft, slechts bruikbaar als het programma nog geheel 
compleet op de disk aanwezig is. Het files sorteren gaat 
supertraag (waarschijnlijk ’bubblesort’ in BASIC), maar 
voldoet wel. Hier en daar is de foutafhandeling niet geheel 
in orde en kan het programma blijven hangen (b.v. wanneer 
er geen diskette in de drive zit bij het backup onderdeel), 
Niet netjes, maar geen ramp, omdat het programma toch 
niet opnieuw hoeft te worden opgestart. 

Het controleren (VERIFY ON) is een zeer groot pluspunt, 
daar dit -tot nu toe- onder DISK BASIC niet mogelijk was. 
Ook bij het formatteren is controle mogelijk, maar bij het 
copieren met COPY wordt niet gecontroleerd!! Alleen bij 
save- en laadopdrachten wordt gekeken of de gegevens 
correct op de diskette zijn gezet. 


CALL SYSTEM: Initieert MSX-DOS, ook als zonder DOS is op¬ 
gestart, of voert het ’autoexec.bas’ programma van de disk 
uit. 


DISK MONITOR: Leest alle sectoren van een disk uit, hexa- 
decimaal of in ASCII. Volgt een heel programma per sector, 


TLIRPÜ 5OO0 (01987 Robtek 
L i c «ens d from Hrcksof t 


h EUZESCHERM 

► 1 = F i lesdirec tor y d i s k 

► Z Fi1 es-recovery disk 

► 3= Files sorteren disk 

► 4= Bac k -up Mcode tiles 

► 5= Andere def au. 1 tdr i ve 

► 6= Msx-dos instelling 

► 7= Menu cassettesaven 

► S= Stop en r eset n=new 

► ESC H= Hardcopy screen 

Aanta1 drioes: 2 

De t a ij. 11 dr i ve : H 

Geef ulw keuze in: 






Het programma maakt gebruik van ESG-codes en deze moe¬ 
ten dus goed in de gaten worden gehouden. Verder niets 
dan lof over deze aanvulling voor de MSX machines. Meer¬ 
dere programma’s in 1 cartridge voor een prijs, die vaak 
voor een enkel van deze programma’s moet worden neerge¬ 
teld; goedkoop dus. Vrijwel alles is menugestuurd en zeer 
gebruiksvriendelijk, zodat vrijwel iedereen er meteen mee 
aan de slag kan. 

De cartridge wordt geleverd met een goede Nederlandse 
handleiding en een ieder, die erg actief met z’n MSX bezig 
is, raad ik aan deze cartridge aan te schaffen en de losse 
programma’s, die tot nu toe hiervoor werden gebruikt, in 
de kast te leggen of te verkopen. Hoewel? Hie wil de 2 e nu 
nog hebben? 


BEELD : sbbs 

FOUTAFHANDEL.: aaa 
GE BRUIKSGEMAX: aaaaa 
DOCUMENTATIE : asaa 
PRIJS aaaaa 











LISTING CONTROLE PROGRAMMA 2 


DEZE LISTINGTESTER IS VAN TOE¬ 
PASSING OP DE LISTINGS VANAF 
MSX-GIDS NR. 3 

De listingtester is een hulpmiddel voor de lezers die de 
programma’s uit ons blad zelf intikken. Achter de pro¬ 
gramma’s, die met deze tester gecontroleerd kunnen 
worden, staat een controletelling. Door nu zo’n pro¬ 
gramma met deze tester te controleren wordt even¬ 
eens een telling verkregen die -per regel- overeen 
moet komen met de telling in het blad. Zijn de getallen 
achter de regelnummers hetzelfde, dan is de kans erg 
groot dat deze regel goed is overgenomen. Zeker is dit 
echter niet, want wanneer bijvoorbeeld twee letters in 
een regel worden omgewisseld dan is de telling wel 
goed, maar kan het programma toch fouten opleveren. 

1 WERKWIJZE 

Eerst moet dit controleprogramma FOUTLOOS over¬ 
genomen worden en worden weggeschreven op cas¬ 
sette of diskette als ASCII-file met de volgende 
opdrachten: 

SAVE”CAS:TESTER’\ A (voor cassette). 

SAVE"A:TESTER”,A (voor diskette). 

Dit hoeft slechts éénmaal te gebeuren; verder kan dit 
programma voor alle listings worden gebruikt. 

Vervolgens moet het te controleren programma wor¬ 
den ingetikt. Is dit gedaan, dan het programma eerst 
wegschrijven naar cassette of diskette en niet eerst 
RUNen, want bij sommige fouten kan het programma 
blijven hangen en bent u het kwijt; alles moet dan 
opnieuw worden ingetikt. Nu kan het controleprogram¬ 
ma worden ingelezen en achter het te controleren pro¬ 
gramma worden geplaatst met de opdracht: 

MERGE”CAS:TESTER” (voor cassette). 

MERGE”A:TESTER” (voor diskette). 

Vervolgens kan de controle worden gestart met: 


Sommige programma’s hebben een eigen controle. Bij 
deze programma’s ontbreekt de controletelling of staat 
slechts een telling voor het gedeelte dat niet door het 
programma zelf wordt gecontroleerd. 

(Meestal BASIC-gedeeltes bij een machinetaal pro¬ 
gramma). 


65000 ' 

65010 ’ 

65020 » 

65030 ’ 

65040 ’ 

65050 * 

65060 * 

65070 CLS:CLEAR:SCREEN 0:VIDTH 40:PRI 
NT 

65080 PRINT "Weergave vla beeldscherm 
of printer?” 

65090 PRINT :PRINT ”B of P?: " 

65100 X$= INKEYS: IF XSO"B" AND X$<>”P 
” THEN 65100 
65110 START=32769! 

65120 RG=START+2: T=0 
65130 REM 

65140 VR=PEEK(START)+256*PEEK(START+1 
) 

65150 NR=PEEK(RG)+256*PEEK<RG+1) 

65160 IF VR=0 THEN 65270 
65170 IF MR>=65000! THEN 65270 
65180 S=0:FOR I=RG+2 TO VR-1 
65190 A=PEEK(I) 

65200 IF A=143 THEN I=VR:GOTO 65220 
65210 S= S+A.-NEXT 
65220 S=SMOD256 
65230 T=T+S 

65240 IF X$="B” THEN PRINT USING ”Reg 
el:##### - ###”;NR,S:GOTO 65260 
65250 LPRINT USING "Regel:##### - ### 

II . ITO g 

65260 START=VR: RG=VR+2:GOTO 65140 
65270 IF X$=”P” THEN 65290 
65280 PRINT:PRINT "Totaal: ";T: END 
65290 LPRINT "Totaal: ";T: END 


*********************** 

* LISTING TESTER 2 * 

* Door Alfred Debels * 

* <c>1986 De MSX Gids * 

* Amsterdam * 

*********************** 


RUN 65000. 


Let erop de fouten te corrigeren in het originele pro¬ 
gramma. Na het laden van het controleprogramma 
staat dit namelijk achter het eigenlijke programma en 
vormt nu één geheel. In sommige gevallen kan dit extra 
stuk programma problemen geven b.v. met de geheu¬ 
genruimte! 

REM-regels worden niet gecontroleerd. Mocht het 
voorkomen dat REM-regels wel exact moeten worden 
overgenomen, dan zal dit bij het desbetreffende pro¬ 
gramma worden vermeld. Bij kleine of eenvoudige pro¬ 
gramma’s wordt geen controletelling geplaatst. Ook 
worden meestal geen tellingen geplaatst bij program¬ 
ma’s die deel uitmaken van een artikel. Deze program¬ 
ma’s (of stukken programma) verschijnen ook meestal 
niet op de cassette of diskette van de programma-ser- 
vice. 


Er staat geen 'zelftest' meer bij dit controleprogramma 
daar er afwijkingen in de telling kunnen voorkomen 
wanneer de controle via het beeldscherm plaatsvindt 
of wanneer het programma al een keer is geRUNd. Om 
dezelfde reden dient het te controleren programma ook 
alleen ingeladen te worden voor de controle en moet 
men NIET eerst RUN geven. Na het RUNen zal de con¬ 
trole - bij sommige regels - een andere waarde geven!! 

Let goed op de DATA-regels. Hier worden de meeste 
fouten gemaakt. Bij het omwisselen van getallen in 
deze DATAregels wordt wel een juiste telling gegeven, 
maar het programma zal niet (of onjuist) werken! 
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DE MINI GIDS 

In deze rubriek kunnen onze lezers advertenties 
plaatsen, mits NIET VAN COMMERCIËLE AARD! 
Handelaren kunnen onze advertentietarieven aan¬ 
vragen. 

De redactie behoudt zich het recht voor adverten¬ 
ties te weigeren. Inzendingen kunnen gestuurd wor¬ 
den naar Postbus 516, 8200 AM Lelystad en die¬ 
nen voorzien te zijn van naam, adres en evt. tele¬ 
foonnummer. Advertenties met alleen postbusnum¬ 
mer of antwoordnummer worden niet opgenomen. 


LET OP « | 

Dit is ons nieuwe adres: 


3200 AM LELYSTAD 


AANGEBODEN 

MSX-Gids 1 t/m 10 (in een Koop) R. 55,=. 
HCH blad 2 t/m 10 (in een koop) Fl. 40,=. 6 
cassettes software (o.a. tekstverwer¬ 
ker en (dis)assembler) Fl. 30,=. Boeken 
t.e.a.b,: 40 graf.progr.HSX, Leerboek BA¬ 
SIC (3 delen). Machinetaal handboek 
(Klopper), MSX MT boek (BecKer), Progr.in 
mtaal (Immerzeei). P. de Geus, J. de Witt- 
straat 8, 3381 XX Utrecht. Tel. 

030-310891 

Te koop of ruilen: originele software 
met handleiding voor MSX-1 en 2. O.a. 
Laydock en Nemesis. Antoon Maes, Pi- 
oenstraat 24, 6915 SK Lobith. Tel. 

08365-3554. 

Te koop wegens aanschaf MSX-2 compu¬ 
ter: Multisystem kleurenmonitor JVC 
TM-90PSN Bfr.14500. Diskdrive Philips 
VY-0010 Bfr.11000. MSX Homeoffice tekst¬ 
verwerker + kaartenbak (cartridge) 
Bfr.2300, MSX Homeoffice spreadsheet ♦ 
grafiek (cartridge) Bfr.2300. Alles 
apart verkrijgbaar of in 1 koop voor 
Bfr.26000. Vanbrabant Guido, Steentje 
29, 8200 Brugge, Belgie. Tel. 050-386915. 

Negens aanschaf PC: Sony HBF9P (MSX-2) 
ca. 3 maanden oud + MT-TELCOM modem + 
veel software, boeken, tijdschriften en 
2 joysticks + cassetterecorder. Prijs: 
F1.1300,=. A.v.d.Spek, Wijsstraat 18, 
Schijndel. Tel, 04104-77213 

SONY HB-F9P MSX-2 computer + SONY 
HBD-50 diskdrive (3.5 inch). Incl. boeken, 
tijdschriften, beeldscherm en software 
Prijs F1.1250,=. D.Feij, Van Cirkelstraat 
22, Oost-Souburg, tel. 01184-64428. 

Originele Konami cartridge’s: Yie Ar 
Kung Fu, Knightmare, Road Fighter en 
Green Beret. Per stuk Fl.29,95. Schrijf 
of bel naar Rene Martens, Den Ouden 
Dries 10, 5632 KL Eindhoven. Tel, 

040-421835 

Philips NMS 8220 MSX-2 computer (met 
ingebouwd designer programma), nieuw 
in doos met garantie + kabels * boeken, 
♦ Canon T-22 MSX printer ♦ datarecor- 
der + programma’s. In 1 Koop F1.675,=. 
Artikelen los, prijs n.o.t.k. Tel. 
02230-33162 


Toshiba HX10 MSX computer + diskdrive + 
kl.monitor + plotter + div. boeken + 30 
diskettes software in box (o.a. Tasword, 
Devpac80, MSDOS, LOGO, BASICODE 1-2-3). 
Alles in 1 koop in kast voor F1.1250,= 
(nieuw ca. F1.3000,=). Gratis complete 
MSX-Gids in 2 opbergmappen + interface 
voor standaard modem 1 !! Tel. 
02240-96926 

Te koop: serieuze software (origineel) 
op disk of cassette. O.aXasword, Aacko- 
base, Aackocalc, Kastan enz. Schrijf 
naar: Huub Timmermans, Beemderhoek- 
weg 2, 6095 NS Baexem 

Diverse software, F1.5,= per cassette 
(i.v.m. overgang naar disk). Joost Bos¬ 
man. Tel. 05910-40202. 

Defecte Goldstar MSX-1 computer 
F1.75,=. 30 diskettes 3.5 inch met origi¬ 
nele programma’s F1.300,=. Telexconver- 
ter F1.70,=. Tel. 070-213055 (Stephan). 

Spectravideo SVI-738 X’Press met inge¬ 
bouwde diskdrive, 80 kol. en RS232 in¬ 
terface. Toshiba printer/plotter en So¬ 
ny datarecorder. Met kabels, boeken, 
tijdschriften en veel software, Prijs 
in overleg. F.Maathuis, Soeraba- 
jastr.21A, 9715 LM Groningen. (Tel. 
050-734428). 

GEVRAAGD 

Een goede grafische screendumper 
voor de Brother-HR5 (grijstinten, 
sprites, A4). Ook voor laadschermen. 
Liefst ml. Ruilen of tegen vergoeding. 
071-890140 

Gevraagd alle GOONIES codes. Alvast 
bedankt. Harold Bergsma, Wiardastraat 
35, Leeuwarden. 

MSX-Gidsen deel 7 t/m 10 of alleen lis- 
ting van Super Heli voor redelijke 
vergoeding. Tel. 05282-1212 (Rene). 

Listings van Groningen en Friesland 
per helicopter + controletelling uit de 
MSX-Gids. Onkosten worden vergoed. Tel. 
078-194178 

Gevraagd een back-up programma voor 
de Philips VG8020 en wie weet de POKE’s 
voor het spel Knightmare, (Ruilen mag 
ook). Robert Westenberg, Havezathe 36, 
Almere. Tel, 05490-67171 


RUILEN 

Gezocht MSX-ers om software mee te 
ruilen (op tape). Liefst omgeving Gro¬ 
ningen, A.Pruis, De Zwaan 8, 9781 JZ Be- 
dum. 

Ruilen: originele software tegen dito, 
H.Guyt, Kagersingel 30, 2172 XG Sassen- 
heim. Tel. 02522-17251 

Wie heeft Spitfire 40, 737 Flight simula¬ 
tor of Chopper (disk of cas.) en wil deze 
ruilen tegen Flight Path 737, Flight 
Deck of Jet Fighter (cas.) origineel. 
Paul Bodifee, Kleine Poot 24, 7411 PE De¬ 
venter, Tel. 05700-18181. 

MSX-ers gezocht om software mee te 
ruilen. J.Clermonts, De Eibert 3, 9482 
RX Tynaarlo. 

Gezocht MSX-2 gebruikers om software 
mee te ruilen. Tevens te koop: Auf Wie- 
dersehen Monty (cas. fl.l5,=) en Mr.Jaws 
(cas, fl,15,=).. H.v.d. Klei, Broeklaan 4, 
9405 AM Assen. 

Gevraagd MSX1 of MSX2 games om te rui¬ 
len. D. Bloemendal, Ommerweg 70, 7683 
AZ Den Ham. Tel. 05495-1630 

Firehawk, Jetset Willy en Keystone Ka¬ 
pers (orig. tapes) ruilen tegen Chop¬ 
per, Head over Heels of Thing Bounces 
Back (orig. tapes). Of ruilen tegen 64K 
geheugencartridge voor de Philips 
VG-8020. Harold Bergsma, Wiardastraat 
35, Leeuwarden. Tel. 058-155712. 

Software te ruil of te koop tegen re¬ 
delijke vergoeding. O.a. Knightmare, Ar- 
kanoid, Rollerball, Starquake, Bounder, 
Ong.200 spellen. Niet op disk. Tel. 
023-382115 (Sander). 

Ruilen: verzameling MSX-1 software (50 
tapes) tegen hardware (b.v, printer), 
Tevens MSX-2 software gevraagd. Rob¬ 
bert Bastiaans, De Wilg 33, 6941 XV Di- 
dam. Tel. 08362-23627 

Te ruil voor MSX-1: Green Beret, 
Avenger, The Way Of The Tiger, The In- 
heritance, Jet Set Willy, De Hobbit + 
boek en Kick It, Alles origineel. Tel, 
05615-1831 

DIVERSEN 

* * 

Wie (uit het Noorden van het land) wil 
MSX-2 ervaring en software (disk) uit¬ 
wisselen? R.J.Hoebe, Lange Leegte 123, 
9641 GV Veendam. 

Gezocht MSX-ers om software en gege¬ 
vens mee uit te wisselen, MSX-1 & 2. Edu- 
ard Marien, Kon. Wilhelminastr.15, 4691 
GE Tholen. Tel. 01660-3825 

Kontakt gezocht met andere MSX-ers. 
Tel. 08380-36393 na 17.00 uur, vragen 
naar Marco. 
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Wij leveren een zeer ruim 
assortiment voor uw MSX 
en MSX2 computer. 


The Maze of Galious 

R fl 75,00 

Chima Chima 

T fl 29,90 

Penguin adventure 

R fl 75,0® 

Rocket Roger 

T fl 29,00 

Qbert 

R fl 75,00 

Super bowl 

T fl 24,90 

Vampire killer HSXII 

R fl 75,00 

Decathlon 

T fl 49,00 

Game «aster (utility) 

R fl 75,00 

•Beamrider 

T fl 49,00 

Neme sis 

R fl 69,00 

Master of the lamp 

T fl 49,00 

Goonies 

R fl 69,00 

•Her o 

T fl 49,00 

Green baret 

R fl 69,00 

♦Pitfall II 

T fl 49,00 

Knightmare 

R fl 69,00 

Zoids 

T fl 39,00 

Soccer 

R fl 69,00 

•Pastfinder 

T fl 49,00 

Yie ar kung fu II 

R fl 69,00 

•Galaxia 

T fl 39,00 

Hyper ralley 

R fl 69,00 

Icicle works 

T fl 39,00 

Topple zip 

R fl 59,00 

Gumshoe logic 

T fl 39,00 

Relics 

R fl 69,00 

Bounce 

T fl 14,90 

Coco in the castle 

T fl 39,00 

Mr jaws 

T fl 14,90 

Snax 

T fl 39,00 

* v 

Polar star 

T fl 29,90 

Buster block 

T fl 39,00 

Cyberun 

T fl 39,00 

Spooks and ladders 

T fl 39,00 

Bubbler 

T fl 39,00 

Star avenger 

T fl 39,00 

Fuzz ball 

T fl 34,90 

Kubus 

T fl 39,00 

Heaning of live 

T fl 34,90 

Wizards lair 

T fl 36,00 

Batman 

T fl 39,00 

Dynamite Dan 

T fl 39,00 

Pentagram 

T fl 39,00 

Football manager 

T fl 36,00 

Star fighter 

T fl 34,90 

10th Frame 

T fl 39,00 

HSXtra 4 games 

T fl 45,00 

Cösmic shock absorber 

T fl 39,00 

Five star 5 games 

T fl 45,00 

Future Knight 

T fl 25,00 

* Spitfire 40 

T fl 45,00 

Vaikyr 

T fl 25,00 

Killer tomatoes 

T fl 39,00 

The living daylight 

T f 1 3990 

%Sorcery 

T fl 39,00 

The ice king 

T fl 36,00 

♦ Zipper 

T fl 29,00 

Hartianoids 

T fl 39,00 



Trail blazer 

T fl 29,00 

Tasword Engels 

T fl 49,00 

Winter games 

T fl 39,00 

Tasword Ned. 

T fl 95,00 

Footballer of the year 

T fl 25,00 

Tasword 

D fl 115,00 

Arkanoid 

T fl 39,00 

Tasword HSX II 

D fl 149,00 

Head over heels 

T fl 39,00 

Super kasboek 

D fl 149,00 

Krakout 

T fl 39,00 

Fistan MSX II 

D fl 299,00 

Uchi mata 

T fl 39,00 

Fastan MSX 11 

D fl 299,00 

Come on Picot 

T fl 34,90 

Flash assembler 

D fl 119,00 

Pico pico 

T fl 29,90 

Devpac 80 v 2.0 

D fl 165,00 


WIJ HEBBEN RUIM 800 MSX ARTIKELEN IN 
VOORRAAD!!! TEVENS LEVEREN WE SOFT¬ 
WARE VOOR ALLE BEKENDE MERKEN ZOALS 
MS/DOS, AMIGA, ATARI ST, SPECTRUM, 
COMMODORE, SCHNEIDER. OOK LEVEREN WIJ 
HARDWARE TEGEN SCHERPE PRIJZEN AAN 
SCHOLEN EN BEDRIJVEN. BEL VOOR PRIJS¬ 
OPGAVE EN INFORMATIE VAN DINSDAG TOT 
ZATERDAG TUSSEN 10.00 EN 17.00 UUR 
030-183001 OF 020-123206. 


Devpac 

T fl 79,00 


Pascal 80 

D fl 165,00 


MSX text 

R fl 195,00 


MSX calc 

R fl 195,00 


Diskit 

D fl 69,00 


Aackodesk 

D fl 179,00 


MSX DOS 

D fl 159,00 


Mue editor 

R fl 99,00 


Eddy II 

Rfi 76,00 


Neos mouse + cheese 

C fl 199,00 


Neos mouse cheese II 

D fl 225,00 


Print Express 

C fl 99,00 


Print Express 

D fl 120,00 


MT Base v 2.0 

R fl 199,00 


MT Debug 

R fl 149,00 


MT Viditel 

R fl 299,00 


MT Telcom modem 

M fl 499,00 

. ' „ 

Teltron modem 

M fl 649,00 


Datacom modem 

M fl 499,00 

- 

Kastan Msx II 

D fl 149,00 


Video titler 

T fl 249,00 


Catball 

H fl 199,00 


Head alignment kit 

T fl 39,00 

R = rompacK. 

Musiwriter 

R fl 129,00 

T = tape 

Forth 

C fl 179,00 

D = disk 

MSX Logo 

R fl 225,00 



Bestelbon 


Titels Prijs 


. / 

v* 

s.. 


ƒ 


Naam 

Adres 

Postcode 

Woonplaats 

Telefoon 


Totaal 

Porto 

Totaal te voldoen 


ƒ 

ƒ 

ƒ 


iDmir®fe®iraoMöw c 


Vooruit per giro: 4526682 f 4,-porto 


Euro/betaalcheque 


f 4,-porto 


Rembours 


f 10-porto 























































